
IRAN CONCURSO DE PROGRAMAS MSX. 




rptas. 



Se ha abierto ya la convocatoria del 2 o Gran Concurso de Programas MSX. Hay dos categorías 
de participación: Una, para Centros Docentes; otra para particulares y público en general 



temario 




En la categoría de "Centros Docentes" 
se aceptarán todos los programás cuyo tema sea 

pero que, por supuesto, no sean la mera 
copia de un libro o de un programa ya existente. 
Lo que se pretende es estimular la creatividad. 
En la segunda categoría, que denominamos 
"General", los programas que participen deberán 
corresponder a uno de los cuatro temas siguientes: 

► Simulación en el ámbito de las Ciencias (Física, 
Química, Biología, Ecología, etc.). Se trata de 
crear un programa que simule un caso real 
o imaginario. 

(creación, interpretación, generador de 
sonidos y ritmos, etc.). 

► Juegos de aventuras. 

► Gráficos y Diseños (se valorará la posibilidad de 
impresión en Plotter). 




SONY tendrá la propiedad de los programas 
premiados. 

SONY tendrá los derechos de compra sobre el 
resto de los programas presentados. 
Los programas que concursen deberán ser 
presentados grabados en cinta de audio SONY 
o diskette SONY OM-D3440, entregándose dos 
copias. Asimismo se deberá adjuntar un listado 
del programa, instrucciones de funcionamiento y 
una síntesis del contenido del programa. 
Con cada programa se entregará un sobre 
cerrado conteniendo los datos del autor o autores, 
y en el exterior figurará el título correspondiente. 
Todos los concursantes, independientemente de 
su clasácaaón fanal, serán obsequiados con 





- Ae entregó 



as 




Los premios se repartirán también 
según las categorías: 

Cate g oría Centros Docentes. 

- Un único premio de un millón de pesetas a 
repartir entre el Centro Docente y el autor del 
programa. 500.000- Ptas. para cada uno. 

Categoría GeneraL 

- Un premio de 500.000 - Ptas. para el que quede 
clasificado en primer lugar. 

- Dos premios de 300.000- Ptas. para los que 
queden clasificados en segundo lugar. 

- Tres premios de 100.000- Ptas. para los que 
queden clasificados en tercer lugar. 

Todos los premios serán en matenal SONY. 



Redaos 



La fecha límite para la recepción de los 
programas es el 30 de Enero eje 1 .987. Debiendo 
ser entregados a SONY ESPAÑA, S.A., 
Departamento de Ordenadores MSX. Sabino de 
Arana, 42-44, 08028 - Barcelona; TEL. (93) 330.65.5 1 . 



^ A concurso V 



en 



Bs*^*^ Entre todos los programas recibidos, el 
jurado elegirá los que, a su juicio, contengan un 
mayor nivel de innovación y creatividad. 
f*~7 sü , to , ^ l | El fallo será público el 1 de 

a u^i^i^ i aan u ■ 




- Los programas presentados por los 
Centros Docentes deberán tener un máximo de 
28 K.RAM. 

Los programas presentados por particulares para 
la Categoría General deberán tener un máximo 
de 12 K.RAM. 




i Sros. Juan Hoig Fetrón 
Coatrtantí (Toarcagoaa) 
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en la prensa nacionaL 
Para mayor información o 
consulta, diríjase a 
cualquiera de 
las Delegaciones SONY. 
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DELEGACIONES SONY ESPAÑA, S.A. 



BARCELONA 

Sabino de Arana. 42-44 
Tel. (93) 330 65 51 
08028 



MADRID 

Julián Romea, 8 
Tel (91) 253 08 00 
28003 MADRID 



BILBAO 

Pintor Lecuona. I 
Tel (94) 444 42 00 
48012 BILBAO 



SEVILLA 

Niebla. 8 

Tel (954) 27 47 07 
41011 SEVILLA 



VALENCIA 

Salvador Fenandis Luna, 6 
Tel. (96) 325 35 06 
46018 VALENCIA 



LA CORUÑA 

Avda Ejército, 23 
Tel (981) 29 98 55 
1 5006 LA CORUÑA 
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CULTURA 
INFORMATICA 



El sorprendente éxito de la 
microinformática de consumo ha 
puesto en evidencia la falta de cultura 
informática de la gran mayoría de los 
consumidores. Este hecho, que parece 
agravarse con el incremento cada vez 
más progresivo de las ventas, tiene 
una solución. Esta solución depende 
básicamente tanto de los medios de 
información como de los fabricantes. 
La tarea de estos últimos consiste en 
preparar adecuadamente a sus 
vendedores para que sean éstos 
quienes, en el trato directo con el 
usuario, informen de todo lo que es la 
máquina que le ofrece. Hasta ahora 
m uchos de los fabrican tes de MSXhan 
puesto a la venta sus aparatos del 
mismo modo que su lavadora o su 
máquina fotográfica, olvidando que 
estamos ante un producto nuevo y de 
especiales características de 
aplicación. Todos los fabricantes han 
de tener en cuenta que el usuario, que 
parte de la idea de que tener un 
ordenador es útil, aún no está en 
condiciones para sacarle provecho y 
que por tanto quien se lo vende tiene la 
obligación de enseñarle su uso. 
En cuanto a los medios de 
comunicación con quienes también 
está obligado el fabricante a brindarle 
información, hay que deslindar dos 
aspectos. El primero es que su misión 
es la de clarifícar el mercado dando 
cuenta de todo lo que sucede en el 
mundo informático de un modo 
sencillo y eücaz. El segundo aspecto es 
el de ayudar al usuario a usar su 
máquina enseñándole los distintos 
modos de sacarle más provecho, lo que 
no quiere decir que tenga que 
enseñarle informática, pues para 
conducir un coche no es necesario ser 
mecánico. 

Seguramente la prensa especializada 
con mayor o menor acierto cum pie con 
esta tarea, pero la prensa de 
información general comete errores 
garrafales de información que podrían 
evitarse con sólo consultar a las 
personas o empresas idóneas. Estos 
errores crean un notable 
confusionismo en el mercado de la 
microinformática de consumo, lo cual 
redunda negativamente tanto en el 
fabricante como en el usuario. 
Estas razones nos llevan a pedir a 
unos y a otros un mayor rigor y 
seriedad ya sea en la comercialización 
de los aparatos como en la 
nformación que se ofrezca de ellos. 

Manhattan Transfer, SJL 




ANO II N.° 24 NOVIEMBRE 1986 
P.V.F. 175 ptas. (Incluido IVA 
y sobretasa aérea Canarias) 

Aparece los días 15 de cada mes. 
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Las entradas y salidas más directas de nuestros lectores 




ELMSX2 

PARA TODOS 

Sometemos al banco de pruebas 
al nuevo Mitsubishi ML-G1 
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CALLV 
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Te introducimos en la compresión de pantallas 



BIT BIT 



16 



Comentario de los últimos juegos MSX 

PROGRAMAS 

Representación gráfica de funciones 
Genética 

EN PANTALLA 

Las últimas novedades y noticias relacionadas con el mundo MSX 
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22 
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DEL HARD AL SOFT 

Entrega 18 de una serie dedicada al Código Máquina 



32 



TRUCOS DEL PROGRAMADOR 34 

Sácale más provecho a tu máquina siguiendo el camino más corto 
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CON GARANTIA 




Mi manual dice que la ins- 
trucción ERASE sirve para 
cambiar el nombre de una ma- 
triz. ¿Es cierto? 

En ocasiones cario un Dro- 
grama y aparece el mensaje 
«Device 1/0 error», aunque, 
aun asi, puedo ver parte del lis- 
tado mal cargado. ¿Hay alguna 
forma de recuperarlo? 

Quisiera aumentar la me- 
moria de mi SPECTRA VIDEO 
728 con un cartucho para que 
me entren los juegos de 32K. 
¿Cuál me aconsejáis? 

Francisco Maldonado 

Cetina 

— El cometido de la instruc- 
ción ERASE es exclusivamen- 
te el de borrar variables de 
conjunto (matrices), a ñn de 
despejar el espacio de memo- 
ria que ocupan las que ya no se 
usan. Por otra parte, la ins- 
trucción CLEAR borra todas 
las variables de todos los tipos. 

— Para recuperar todo lo que 
se pueda de un programa da- 



ñado es preciso construir una 
rutina en ASSEMBLER. Publi- 
caremos una en un futuro pró- 



—Tu ordenador dispone de 
64K de RAM para la carga de 
programas. El hecho de que el 
BASIC sólo pueda manejar 
28K es anecdótico. Así que ol- 
vida el cartucho de ampliación 
y gasta tu dinero en progra- 
mas, ya que no tienes ningún 
problemas de memoria. 



MENSAJES DE ERROR EN 
CASTELLANO 

En la revista número 16yen 
la sección trucos del progra- 
mador hay un programa lla- 
mado «Mensajes de Error en 
Castellano». El problema es 
que me sale «Out of DATA». 



Alcorcón (Madrid) 

Al finalizar el programa 
«Mensajes de Error en Caste- 



DIBUJAR EN EL BORDE 



-¿Cómo se puede escribir, 
realizar gráficos, etc., en los 
bordes del SCREEN2 tal y 
como he observado en el Athle- 

tic Land? 

-¿Me podíais decir en que di- 
recciones están almacenados 
los comandos LOAD, CLOAD, 
SAVE Y CSAVE? 

-¿Hay alguna subrutina con 
la que una vez construido un 
SPRITE lo invierta, es decir, 
que si el SPRITE está mirando 
a la derecha mire a la izquier- 
da o viceversa? 

José Juan 
Quevedo Séncnes 



lo 



-Escribir en el Borde es ao- 
solutamente imposible. Ahora 
bien, lo que sí es factible es 
cambiar el color del mismo de 
una forma tan rápida que dé la 




sensación de que hay peque- 
ñas franjas rectangulares o 
cuadradas en continuo movi- 
miento. En realidad este es un 
campo abierto a la experimen - 
tación, ya que si se construye- 
ra una rutina gestionada por 
interrupciones tal vez sería 
posible obtener interesantes 
efectos. Naturalmente habría 
que elegir con mucho cuidado 
los tiempos y especular con las 
pausas del VDP tras los retor- 
nos de cuadro. 

-No sé bien a qué te reñeres 
con tu segunda pregunta. Si 
que desea es saber dónde 
almacenan los parámetros 
relacionados con la cinta, te 
diré que vienen directamen- 
te de ésta, cuando se trata de 
leer; o son tomados 
grama o del buffer de 
(&HF41F), si se trata ua 
bar 

Por otra parte, si lo que quie- 
res saber es la dirección de las 
rutinas de la ROM relaciona- 
das con el cassette, te aconsejo 
que leas nuestro número «Es- 
pecial Código Máquina», pues- 
to que allí se recogen las más 
importantes. 

-En cuanto a la rutina para 
invertir un SPRITE, te he cons- 
truido una que encaja, creo yo, 
con lo que tú deseas. La encon- 
trarás al ñnal de la revista, en 
la sección «Trucos del progra- 
mador». 




m 
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llano» del número 16 tecleó 
NEW, siguiendo sus instruc- 
ciones. Posteriormente me di 
cuenta de que el programa no 
funciona. ¿Por 




David fitnnol Sábat 



El programa que citáis es di- 
fícil de teclear. No basta con in- 
tentar ceñirse al listado, hay 
que respetar exactamente to- 
das las comas y los espacios 
que existen (o no) entre ellas. 
Cualquier ligero desliz hará 
que el programa no funcione, 
aunque, por cierto, lo hace per- 
fectamente. 




ENSAMBLADOR 

Hace poco he adquirido un 
ensamblador para entrar ruti- 
nas C.M. En la sección «CALL» 
del número 22 sale una peque- 
ña rutina de multiplicación en 
ASSEMBLER. La he copiado y 
no hay forma de que pueda eje- 
cutarla. Así me ha ocurrido 
también con varios progra- 
mas de la sección «Del Hard al 
Solft». Por más que intento 
sólo consigo el mensaje de 
«Pardon?». 

Gabriel León 



El mensaje que citas es ca- 
racterístico de los compilado- 
res de HISOFT, por ello deduz- 
co que estás empleando el en- 
samblador «GEN» de la citada 



Si quieres ejecutar un pro- 
grama desde «OEn», lo prime- 
ro que debes hacer es especiñ- 
car con el seudonemónlco ENT 
una dirección de arranque. 
Vale una línea como esta: 

1 ENT dirección. 

Luego de efectuar el ensam- 
blado de la rutina, y si éste se 
ha completado sin errores, 
aparecerá lo siguiente: 

Pass 2 errors: 00 

Table used xx from xx 

Exe cutes: dirección 

Pues bien, sólo resta teclear 
«R» seguido de RETÜRN para 
que la ejecución comience en 
lia dirección preestablecida. 



VAMPIRE . Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murció- 
lagos, fantasmas, etc. Un juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



m 



NUEVO 



HARD 
GOPY 

POR JOAQUIN LOPEZ 

Menú» por vmUnti trca 
formatos do copia* ttrouUctón 
en blanco y negro • copla 
Bprtte» redrf tnc colore» 
compatible con cualquier 
impresora matricial. 



CON GARANTIA 

/IWHAnAN TRANSFB?SA 



HARD CCPY. Para copiar pantallas. Trae 
formatos de copias, simulación por blanco y 
negro, copia sprites, redeflnic. de colores, 
compatible con todas las impresoras ma- 
tríc. PVP. 2.500 Pts. 
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KRYPTON 



i 4 



i 



KKYPTON La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP 500 Ptas 



El secreta > de la 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 
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Y » -CON GARANTIA 



U-BOOT Sensacional juego de simulación 
submarina en la que üenes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



f/K. 
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STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 



QUINIELAS 



CON GARANTIA 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos Acertar 
no siempre es cuestión de suerte PVP. 700 
Ptas. 




FLOPPY. El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarla PVP 1 000 Ptas. 




SNAKE Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para eUa. PVP 600 Ptas 




cdN Garantía 



WSFB?SA 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1 000 pts. 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 




Nombre y apellidos: 
Dirección: 
Población: 







• • • ••••••••••••••••••••••••••••••••••••••• ••••••••• 




• 



CP 



w« m aw* | 

□ KRYPTON Ptas. 500,- □ SNAKE Ptas. 600,- □ FLOPPY PVP. 1.000 Ptas. 

□ UBOOT Ptas. 700,- □ EL SECRETO DE LA PIRAMIDE Ptas. 700,- □ MAD FOX PVP. 1 .000 Ptas. 

□ QUINIELAS Ptas. 700- □ STAR RUNNER Ptas. 1.000,- □ VAMPIRO PVP. 800 Ptas 

□ HARDCOPY Ptas. - 

[Gastos de envío certificado por cada cassette Ptas. 70 - Remito talón bancario de Ptas a la orden de Manhattan Transfer, S A | 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITAMELAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 




LUCKY LUKE 



Al teclear el programa Luc- 
ky Luke he notado que cuando 
te pregunta ¿Quieres probar 
otra vez? el ordenador no es- 
pera tu contestación y esto lo 
atribuyo a la ausencia de una 
línea como la siguiente: 

2620 GOTO 2590 

Incluyéndola, el programa 
espera hasta que pulsemos la 
opción deseada. 

Virgilio Ledo Fernández 

(Barcelona) 

No habíamos detectado el 
problema que mencionas, y 
por lo tanto para nosotros es 
absolutamente nuevo. 

De todos modos, quizá algún 
otro lector se haya encontrado 
con él y tu amable carta se lo 
solucione. 

En su nombre, muchas gra- 
cias. 



dad de disco está en uso y per- 
manece encendida hasta que 
se para la máquina (Tengo un 
Spectravideo X'press) 

Ricardo Herrero 
(Calataynd) 

Tu consulta no tiene nada de 
alarmante. Lo que sucede es 
que la mayoría de programas 
que se realizan en código má- 
quina utilizan desde elAssem- 
bler la unidad de disco y la de- 
jan habilitada para grabar o 
cargar. 

Al realizar esto, el motor de 
la unidad continúa funcionan- 
do pero no escribe ni lee nada 
absolutamente, en el dískette. 
Incluso en algunos programas 
este funcionamiento del motor 
se produce de una manera no 
pretendida, pero en resumidas 
cuentas no te preocupes en ab- 
soluto, puesto que los diskettes 
no se verán afectados. 



-¿Será suficiente esta uni- 
dad para llevar una pequeña 
contabilidad? 

—En caso de que no, ¿Tendría 
que cambiar a un ordenador 
con un microprocesador de 
más de 8 bits? 

-¿Es compatible un cartu- 
cho ROM con la unidad encen- 
dida? 

—¿Se pueden cargar juegos 
comerciales con la unidad en- 
cendida? 



Output 



LA LUCE CITA DEL 

DISCO 

Me gustaría que me explica- 
rais el por qué cada vez que 
cargo un programa en código 
máquina se me enciende la lu- 
cecita indicadora de que launi- 



DISCOS 



Tengo un problema: he deci- 
dido comprarme una unidad 
de disco CANON VP-100 y qui- 
siera formular varias pregun- 
tas: 



Evidentemente, la unidad de 
disco CANON es sufíciente 
para gestionar una pequeña 
con tabilidad. 

De todos modos, lo intere- 
sante es encontrar un buen 
programa de contabilidad que 
se adapte a tus necesidades, 
cosa que no va a ser difícil 
puesto que actualmente ya 
existe un amplio catálogo de 
software disponible para dís- 
kette. Si la contabilidad no es 
tan pequeña, el problema con 
el que te vas a encontrar en el 
peor de los casos será el cam- 
bio constante de dískette, so- 
bre todo si la actualización de 
datos es muy frecuente. 

Para resolver este pequeño 
problema -que en realidad es 
más una incomodidad que otra 
cosa— desde luego no has de 
cambiar tu MSX por un orde- 
nador con micro de 16 bits. 
Simplemente te bastará con 
adquirir una segunda unidad 
de dískette, y la gestión de los 
datos será mucho más ágil, 



puesto que sólo deberás limi- 
tarte a traspasar los datos de 
la unidad origen a la de desti- 
no, en lugar de estar sustitu- 
yendo el dískette cada vez que 
hayas de realizar una copia. 

Los cartuchos ROM tienen 
prioridad sobre la unidad de 
disco, puesto que cuando se co- 
necta el sistema, este realiza 
una exploración interna co- 
menzando por las ranuras de 
cartucho. 

Efectivamente, se pueden 
cargar juegos comerciales con 
la unidad encendida, pero he- 
mos de tener en cuenta -sí van 
en formato de cinta— la canti- 
dad de memoria que consu- 
men, puesto que como sabes, al 
cargar el sistema operativo de 
disco consume aproximada- 
mente 4 K de la RAM de usua- 
rio. En este caso la unidad de 
disco no inhibe la carga del 
programa del cassette, sino 
que -en el caso de que el pro- 
grama consuma la totalidad de 
la RAM- avisará que se ha so- 
brepasado la capacidad de la 
memoria. 

Por ello, en el caso de que 
desconozcas la cantidad de 
memoria que va a consumir el 
programa en formato de cinta, 
te recomendamos que efectúes 
su carga sin haber conectado 
la unidad de dískette, o que en 
el caso de que la tengas conec- 
tada y te dé error, la desconec- 
tes y vuelvas a repetir de nue- 
vo la carga del programa. 
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JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 

QUINIEL 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 

PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas, 







Deja el manual de lado. Inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 ptS. 




No te quedes al margen y disfruta de las tarjetas 
inteligentes. Lo último en soft. PVP 2.850 pts. 
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ENVIA HOY MISMO ESTE CUPON 



Nombre y apellidos .. 



. ... .... •••••• ••• • • •••••• • • • 



Dirección 







Población 



• •••••••••• •• • 



CP 







Prov. 







Tel 



>•••••••••••••••••••••••••••••• 



Basic Ras. 3.500 



Adaptador Bee Card Ras. 2.850 



Adaptador Softcard Ptas. 2.850 



Gastos de envío por cada producto 100,- pts. 

Remito talón bancario de 



•••• 




pts. a la orden de Manhattan Transfer, S.A. 

Enviar a MSX CLUB DE MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 








El 




para todos 



Nadie se llame a engaño: Se trata de un MSX2 , aunque los otros modelos que hemos comentado en esta sec- 
ción se suministraran en dos módulos, este MITSUBISHI es tan segunda generación como el que más. 






itsubishi, siempre a la vanguar- 
dia en el tema MSX está comer- 
cializando el ordenador de la 



segunda generación ML-G1, 
especialmente indicado para aquellos 
usuarios que deseen una configuración 
reducida pero potente y con posibilida- 
des de expansión. Este equipo es el her- 
mano menor del ML-G3, del que habla- 
mos en esta misma sección en el mes 
de septiembre. 

CHIQUITO PERO MATON 

Aunque externamente no se diferen- 
cie demasiado de sus hermanos de la 
primera generación, este ML-G1 es un 
MSX2 por derecho propio, que además 
cumple con los requisitos máximos en 
cuanto a VRAM. 

El hecho de que el equipo vaya inte- 



grado en un solo módulo, puede repre- 
sentar una gran ventaja para aquellos 
usuarios que deseen un equipo de últi- 
ma hornada, con todas las característi- 
cas de la segunda generación, pero con 
un precio sensiblemente más bajo. No 
nos engañemos; el elemento que enca- 
rece principalmente a estos equipos es 
la unidad de disco, que en el modelo que 
comentamos es opcional. 

CARACTERISTICAS DEL EQUIPO 

El teclado de este equipo recuerda 
inevitablemente al de los últimos equi- 
pos de Mitsubishi en la primera genera- 
ción: ML-FX1/FX2, lo cual viene a de- 
mostrar que cuando un diseño es bue- 
no, no debe ser retocado (por lo menos 
en cuanto a lo esencial). Esto quiere de- 
cir que -como ya nos viene acostum- 



brando esta marca- consta de teclado 
alfanumérico, con la distribución MSX 
española (incluyendo la letra ñ, a ver si 
toman ejemplo otros fabricantes) y un 
teclado numérico independiente, que no 
nos cansaremos de repetir que facilita 
inmensamente la introducción de datos 
numéricos en los programas. 

El interruptor principal se encuentra 
en el lado izquierdo del equipo, y el útilí- 
simo botón de RESET en el lado dere- 
cho. Las teclas de cursor están ubica- 
das bajo el teclado numérico adoptando 
la cómoda distribución que ya es norma 
en todos los aparatos de esta marca. 

CARACTERISTICAS TECNICAS 

Como hemos indicado, el ML-G1 res- 
ponde a los requerimientos máximos en 
cuanto a RAM de usuario y VRAM. Esto 



quiere decir que posee una RAM de 64K 
y una VRAM de 128K. 

El microprocesador que incorpora, al 
igual que el resto de aparatos de la nor- 
ma es el Z80 A, de 8 bits. Pero la nove- 
dad principal de la segunda generación, 
que asimismo incorpora este equipo es 
el procesador de vídeo, que sustituye al 
tradicional TMS 9918 de Texas Instru- 
ments. 

Este nuevo procesador de vídeo, 
pensado para realizar tareas que sor- 
prenden al más pintado es el V9938, 
que ha sido desarrollado conjuntamente 
por ASCII Corporation, MICROSOFT In- 
corporated y YAMAHA para mayor uso y 
disfrute de todos aquellos que hayan ad- 
quirido un aparato de la segunda gene- 
ración. 

Enumeraremos brevemente las ca- 
racterísticas más importantes que incor- 
pora este nuevo procesador de vídeo: 

- Permite un display de texto de un má- 
ximo de 80 caracteres en 24 líneas. 

- Asimismo posibilita la colocación de 
hasta 8 SPRITES en la misma línea. 
(Vamos, que la regla del quinto SPRI- 
TE pasa a convertirse en la regla del 
noveno SPRITE). 

- Ofrece siete modos para gráficos 
(SCREEN2a8). 

- Altísima resolución gráfica. Hasta un 
máximo de 512x212 puntos de pan- 
talla. 

- Paleta de colores de hasta un máxi- 
mo de 512 (seleccionares hasta 16 
simultáneamente). 

- Hasta 256 colores seleccionares si- 
multáneamente en SCREEN 8 (modo 
multicolor). 

De las características vistas hasta 
ahora, podemos observar que el trata- 
miento de pantalla ha merecido una 
atención especial en este equipo. De los 
nueve modos de pantalla selecciona- 
bles, merece destacar el hecho de que 
ya es posible trabajar en modo de 80 co- 
lumnas en SCREEN 0 utilizando simple- 
mente la instrucción WIDTH 80, vamos, 
que las únicas pantallas que no han va- 
riado son el modo segundo de texto 
(SCREEN 1) y el primero y segundo de 
gráficos (SCREEN 2 y 3). 

Una observación a tener en cuenta en 
lo referente al nuevo circuito procesador 
de vídeo es el hecho de que resulta per- 
fectamente compatible a nivel de soft- 
ware con la versión anterior, es decir, 

3ue absolutamente todos los programas 
esarrollados para la primera genera- 
ción funcionan en la segunda, o sea que 
si había algún usuario temeroso de 
cambiarse a un MSX2 por la compatibili- 
dad de sus programas puede estar ab- 
solutamente tranquilo, puesto que como 
queda patente, se trata de una evolu- 
ción y no de una ruptura. 

Además debemos puntualizar que la 
memoria de pantalla (VRAM) es absolu- 
tamente independiente de la memoria 
principal, lo que viene a significar que 
con el ML-G1 se pueden obtener imáge- 
nes en altísima resolución sin que por 
ello disminuya en un solo bit la memoria 
de usuario. 



FICHA TECNICA 



Item 




CPU 


Equivalente al Z-80A 

(frecuencia de reloi 3 579645 MHz) 


Memoria 




32 kB 


ROM (BASIC expandido) 


l6kB 


ROM (Art paper) 


32 kB 


RAM principal 


64 kB 


VRAM 


128 kB 


Indicaciones en pantalla 


Modo de texto 


32 car. x 24 lineas (16 colores entre 512) 
40 car x 24 lineas (2 colores entre 512) 
80 car. x 24 líneas (2 colores entre 512) 


Modo gráfico de alta 
definición 

Modo gráfico de alta 
definición 2 


256 x 192 puntos (16 colores entre 512) 
256 x 192 puntos (16 colores entre 512) 


Modo gráfico de baja 

■ # 

c T i n i c i n 


64 x 48 bloques (16 colores entre 512) 


Modo gráfico por mapa de 
bits 


256 x 212 (16 colores entre 512) 
512 x 212 (4 colores entre 512) 
512 x 212 (16 colores entre 512) 

9RR v 919 Í9RR m\r\rt*.\ 
¿oo x z \ ¿. \zuo coiuresj 


Caracteres 

• 


Matriz de 5 x 7 puntos 
Letras, números y signos 94 
Códigos 71 
Signos gráficos 87 


Tac la do 


Teclas 


Distribución MSX española 
Letras y números 
Letras especiales 
Teclas de código y edición 

i ecias especiales 

_ • 

TppIpc. Hp riircnr 
i cu i oo uc tui>ui 

\ 5 teclas de función 
(10 funciones posibles mediante la tecla SHIFT) 
Número total de teclas: 89 


Tipo 


incorporado a la uniaaa principal 


Función de generación de 
sonido JM 


8 octavas v efectos sonoros 
Acordes de tres notas 
Volumen ajustable por software 
Terminal de salida de audio incirporada 


Item 


Especificaciones 


Interfase de grabador 


Velocidad de transmisión: 1200/2400 baudios 


Interfase de impresora 


Interfase paralela de 8 bits 


Interfase oe palanca de comando 


Utilizable también para ratón 


Terminales de salida 


Aberturas de cartucho 2, 50 espigas 

Terminal de impresors 1, 14 espigas 

Terminales de palanca de 2, 9 espigas 
comando 

Terminal de salida de RF 1,2 espigas 
Terminal de salida compuesta de 1,2 espigas 

vi Han 

Tprmmal Hp calida Hp RfiR 1 ft ptninac 

Terminal de entrada de grabador 1 , 8 espigas 
Terminal de salida de audio 1 , 2 espigas 


Requerimientos de energía 


220 V CA, 50 Hz 


Consumo 


19 W 


Condiciones 
ambientales 


Temperatura 


5 - 35°C 


Humedad 


20-80% (libre de roció) 


Dimensiones 


424 (An) x 285 (Pr) x 67 (A1) mm 


Peso 


3,3 kg 





Hablando de compatibilidades, es im- 
portante mencionar que el BASIC MSX 
incorporado por el ML-G1 es el BASIC 
2.0 que -insistimos una vez más- es 
perfectamente compatible con el BASIC 
MSX 1 .0 que incorporaba la primera ge- 
neración, aunque esta versión es nota- 
blemente más rápida y potente. Este 
BASIC 2.0 incorpora una treintena de 
nuevos comandos aproximadamente 
que están destinados prioritariamente a 
la gestión y tratamiento de gráficos. 
Pero no sólo se limitan las novedades al 
tratamiento de los gráficos. Además del 
nuevo procesador de vídeo, el MITSU- 
BISHI ML-G1 introduce otros elementos 
que lo convierten en un MSX2 a carta 
cabal. 

Citaremos entre ellos el reloj/calenda- 
rio incorporado con alimentación autó- 
noma (una pila de litio se encarga de la 
alimentación aunque desconectemos el 
sistema) que una vez programado man- 
tiene las funciones de fecha y hora con 
la máxima exactitud. La pila para apoyo 
del reloj se carga por completo dejando 
el equipo conectado durante 70 horas 




consecutivas, pero para evitar que el re- 
loj interno se pare basta dejar encendida 
la unidad unos 70 minutos por día, que 
seguramente es un tiempo mucho me- 
nor del que se acostumbre a pasar un 
usuario delante del equipo, sobre todo si 
es nuevo. 

También es posible destinar 32Kb de 
RAM a la creación de un disco de me- 
moria virtual. Esto permite gestionar una 

parte de la RAM no accesible al usuario 
realmente como si se tratara de un dis- 
kette, con la salvedad de que ai desco- 
nectar la unidad se pierden los datos al- 
macenados en esta parte de la memo- 
ria, pero mientras tanto permite acceder 
a una velocidad superior a la de la uni- 
dad de disco (a la velocidad de la memo- 
ria) a los datos que tengamos almace- 
nados en esta zona de disco virtual 
(RAM DISK). 

Hasta ahora, los únicos equipos que 
incorporaban esta característica de 
RAM DISK eran equipos profesionales, 
con micros de más de 8 bits y lógica- 
mente con una gama de precios que no 
tiene nada que ver con el equipo que 
tamos comentando. 



ART PAPER 

Por si a alguien le pareciera que con lo 
expuesto desde estas páginas no queda 
suficientemente justificada la competiti- 
vidad de este equipo, hemos de decir que 
-como ya nos viene acostumbrando 
este fabricante líder en su terreno- lleva 
un programa de dibujo incorporado. 

Desde la incorporación de Melbrains 
Note en sus modelos de la serie FX, Mit- 
subishi viene obsequiando a sus clien- 
tes con software residente en sus apara- 
tos, y cómo no, en el ML-G1 no podía 
romper esta tónica. 

Con el ML-G1 viene suministrado un 
programa de dibujo denominado Art Pa- 
per, que proporciona todas las herra- 
mientas imaginables para la creación de 
gráficos: Espejos, Sprays, llenados, 
elipses, circunferencias, rectángulos, lí- 
neas... y además los elementos indis- 
pensables para gestionarlos, es decir, 
posibilidad de carga y recuperación de 
los dibujos así como Hard Copy, etc. El 
programa es sencillísimo de manejar, 
puesto que la selección de las diversas 
opciones se efectúa mediante Iconos. 
Esto hace que cualquier lego en el tema 
pueda realizar unos dibujos que serán 
motivo de sorpresa y deleite a los cinco 
minutos de haber conectado el ordena- 
dor. 

En resumen, se trata de un aparato 
potentísimo de excelente diseño, tama- 
ño reducido y con todas las característi- 
cas de la segunda generación de MSX. 
Su bajo coste en relación a otros mode- 
los, y la excelente relación calidad-pre- 
cio (que es de 63.500 ptas. Inc. IVA) lo 
convierten indiscutiblemente en el 
MSX2 para todos. Este aparato y el ML- 
G3 se venden exclusivamente en los 
Centron On Line de Galerías. 




KONAMI TE PRESENTA EL EXITO MAS SONADO EN TODA EUROPA. 



UNA VEZ INTRODUCIDO EN EL CUARTEL GENERAL, ESCAPA DE LAS BOMBAS, MORTEROS 
Y DEMAS ATAQUES PARA LOGRAR LIBERAR A TUS COMPAÑEROS 



.. .. PRESTA ATENCION A PROXIMAS NOTICIAS 



SERMA. C/. CARDENAL BELLUGA, 21. 28028 MADRID. TELS. 256 21 01/02 



El objetivo de este articulo es simple: mostrar cómo puedes comprimir las pantallas y hacer que quepan bas- 
tantes de éBm en la memoria de tu ordenador. 
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s posible que alguna vez hayas 
construido un programa con un 
buen número de pantallas. Pue- 
de tratarse de un juego, un programa de 
gráficos estadísticos o de una rutina 
para representar funciones matemáti- 
cas. Pues bien, en ese caso es casi se- 
guro que habrás notado lo mucho que 
tarda el BASIC en redibujar una pantalla 
completamente. Si se trata de un juego 
(un laberinto, por ejemplo), este proble- 
ma se agudiza y hace que el resultado 
sea prácticamente impresentable. La 
solución al problema de velocidad es te- 
ner la pantalla almacenada en la memo- 
ria, a fin de que no haga falta dibujarla de 
nuevo y baste con ponerla en su sitio en 
un solo paso. En contrapartida, una pan- 
talla completa ocupa 16K, lo que impide 
tener muchas de ellas almacenadas en 
la memoria. 

Puesto que la memoria no puede cre- 
cer, construyamos un artificio que com- 
prima las pantallas. 

COMPRESORES DE PANTALLAS 

El cometido de un compresor de pan- 
tallas es obvio, no así su funcionamien- 
to. 

El principio en el que se basan éstos 
es que dentro de una pantalla suelen 
existir zonas en el que un mismo byte de 
datos se repite un cierto número de ve- 
ces. Si conservamos únicamente el pri- 
mero, y desechamos todos los demás, 
habremos conseguido un buen ahorro 
de memoria. Sin embargo, la cosa no es 
tan sencilla. 

Cuando oigo hablar de un compresor 
de pantallas para algún microordena- 
dor, no puedo evitar sonreír y pensar en 
lo poco útil que debe ser. El motivo es 
evidente: si los datos que configuran la 
pantalla son muy dispares el compresor 
pierde toda su utilidad, al verse obligado 
a entregar un resultado final que ocupa 
más memoria que la pantalla original. 
Hay que tener presente que cuando se 
encuentra un byte distinto al siguiente 
es preciso almacenarlo en el buffer de 
salida añadiéndole un distintivo (otro 
byte), que indique que no se trata de un 
dato repetido, sino de uno independien- 
te. 

Como puedes ver, la utilidad de un 
compresor está ligado a la naturaleza 
misma de la pantalla. Si ésta tiene gran- 
des zonas en los que el mismo byte se 




repite, el programa será muy eficaz, no 
así si los datos son distintos. 

UN COMPRESOR PARA MSX 

Hemos visto ya la principal limitación 
de los compresores, pero, ¿qué es lo 
que hace que una pantalla tenga sus by- 
tes muy desordenados? Los persona- 
jes. En efecto, si alguna vez has creado 
un juego en el que interviene un buen 
número de personajes, habrás observa- 
do como difícilmente repites varios by- 
tes consecutivos en su definición. 

En la práctica totalidad de los microor- 
denadores populares de la actualidad, 



no es posible separar los personajes del 
fondo de la pantalla, lo que hace que 
comprimirla no tenga casi ninguna ven- 
taja. Por el contrario, en el sistema MSX 
existe la posibilidad de emplear SPRI- 
TES, lo que conlleva que la parte enre- 
vesada y difícil de comprimir pueda ser 
considerada como algo independiente. 

Naturalmente todo esto está referido 
a SCREEN2. El modo SCREEN1 con- 
tiene un Kbyte de datos para la defini- 
ción de los caracteres. Si se intenta 
comprimir toda la pantalla, este Kbyte se 
convertirá dos Kbytes, puesto que casi 
no existen bytes repetidos. 

Sin embargo, cuando se programa en 
SCREEN 2 es corriente que la acción se 
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desarrolle en un marco no demasiado 
complicado y los pequeños detalles se 
dejan a las figuras móviles (SPRITÉS). 
En este contexto, los casi 1 4 Kbytes que 
ocupan el fondo pueden ser reducidos 
fácilmente a la quinta parte (o quizá me- 
nos). 

A continuación tienes el listado en AS- 
SEMBLER de un COMPRESOR/ DES- 
COMPRESOR de pantallas: 





i^^mmi ijjloiiii;u n^m 


10 ! 




20 ; COMPRESOR/DESCOMPRESOR 


30 ; 




40 


0R6 50000 


50 buf: 


EQU 35000 


60 vpeek: 


EQU t4A 


70 VPOKE: 


EQU «40 


80 CINT: 


EQU I2F8A 


. 90 


CALI CINT 


100 


LO HL.IF7F8 


110 


PUSH HL 


120 


LO A, ( HL) 


130 


INC HL 


140 


0R (HL) ? v • 


150 


LD IY.BUF 


160 


LO HL,8192 


170 


LO DE, 14336 


180 


PUSH AF 


150 


CALL BIFURC 


200 


LO HL.O 


210 


LD DE.6144 


220 


POP AF 


230 


CALL BIFURC 


240 


LD DE, -BUF 


250 


A0D IY.DE 


260 


LD (»F7F8),IY 


270 


POP HL 


280 


LO A,2 


290 


RET 


300 i 




310 ; 




320 ; 




330 BIFURC: 


JR NZ.DESCOM 


340 C0HPRI: 


LD C,l 


350 


RST #20 


: 360 


RET NC 


370 


CALL VPEEK 


380 


LD 8, A 


390 


INC HL 


400 


CALL VPEEK 


410 


CP B 


420 


JR 2, SI 


430 


LD UY+0),0 


440 EN! 


INC IY 


450 


LD (!Y+0),B 


460 


INC IY 


470 


JR C0HPRI 


480 SI: 


INC • C 


490 


JR 2, STOP 



500 


INC HL 


510 


CALL VPEEK 


520 


CP 6 


530 


JR NZ.NQ 


540 


RST 120 


550 


JR NZ.SI 


560 


INC C 


570 STOP: 


DEC C 


580 NO: 


LO UY+0Í.C 


590 


JR 1N 


600 ¡ 




610 ; 




620 ; 


• 


630 descoh: 


RST 120 


640 


RET NC 


650 


LD 6.UY+0) 


660 


I0R A 


670 


0R B 


680 


JR NZ.Sll 


690 


LD MW1) 


700 


CALL VPOKE 


710 


INC HL 


720 nú: 


INC IY 


730 


INC IY 


740 


JR DESCOH 


750 su: 


LD A, C I Y+l ) 


760 


CALL VPOKE 


770 


INC HL 


780 


DJNZ Sil 


790 


JR INI 



RESUMEN DEL 
FUNCIONAMIENTO 

La rutina se comunica con el BASIC 
mediante la función USR. Al llamarla de- 
bes indicarle si lo que deseas es compri- 
mir la pantalla -A = USR (0)-, o des- 
comprimirla -A = USR (distinto de 
cero)-. Cuando la rutina haya realizado 
su cometido volverá al lugar de donde 
fue llamada traspasando a la variable 
usada (A, en este caso) la cantidad de 
memoria utilizada en el proceso. 

En síntesis, la rutina funciona así: 

-La línea 90 convierte la zona de me- 
moria destinada a transferir parámetros 
del formato BCD -característico de las 
variables en coma flotante de Microsoft- 
a formato entero. 

-Las líneas 100 a 140 comprueban si 
lo que se desea es comprimir o descom- 
primir, poniendo el flag Z a 1 o a O res- 
pectivamente. 

-Las líneas 150 a 230 ajustan el re- 
gistro HL como inicio de la zona a com- 
primir, DE como final de esta zona e IY 
como inicio del buffer de salida. 

-Las líneas 240 a 280 calculan la me- 
moria empleada y transfieren los pará- 
metros a la variable de llamada del BA- 
SIC. 

rutina de compresión (líneas 320 



a 590) es la que realiza la parte dura del 
trabajo. Se trata de comparar un dato 
con el siguiente. Si son ¡guales, se sigue 
mirando hasta que se encuentra uno 
distinto o se llega a 255, momento en el 
que es colocado en el buffer de salida el 
número de bytes iguales encontrados 
seguido por el valor de éstos. Por el con- 
trario, si un byte es distinto al siguiente, 
se pone un cero como marca y el valor 
de dicho byte a continuación. Nota que 
es aquí donde se consume más memo- 
ria, ya que lo que antes se representa- 
ba con un único byte ahora necesita de 
dos. 

Por último, la rutina hace un RET y da 
el trabajo por concluido cuando el punte- 
ro de lectura (HL) llega a la señal de pa- 
rada (indicada por el registro DE). Esto 
se consigue con un RS T # 20, que es la 
rutina del BIOS encargada de comparar 
HLcon DE. 

-La rutina de descompresión (líneas 
630 a 790), realiza justo lo opuesto que 
la anterior. Es decir, si encuentra un 
cero en el buffer, entiende que el si- 
guiente byte es el que contiene realmen- 
te el dato válido. Sin embargo, si en- 
cuentra un byte distinto de cero, lo toma 
como el número de veces que se repite 
un mismo dato y coge el siguiente byte 
como el valor de toda la serie. 

A continuación se incluye el cargador 
de la rutina: 



LISTADO 2 



10 ' 

20 ' CARGADOR OE LAS RUTINAS DE 
30 ' COMPRES I QN/OESCQJtntES I OH 

40 ' 

50 FQRXsSOOOO ! T050130 i : READVC 
60 PQKEX , VALÍ • AH* +V$ ) : SaS+P£EK( X ) 

70 NEXT 

80 I FSO 1421 & ! THENBEEP: CLS : FR I NT " HAY UN 
ERROR" 

90 OATACD , SA . 2f . 2 1 , FS , F? , ES ,7E,23,BS,F0 
, 21 ,68,88,21 ,00,20, 1 1 , 00, 38 . F5 , CD . 7F , C3 
,:¡,C0,0Ú,!1,00.U:,F1,CD,7F,C3,11,48,77 
,FO,¡9,FD,22,F3,F7,Ei,3E,02,C3,20,30,OE 
, 0 i . £7 , DO, CO . 4A . 00 . 47 , 23 . CD , 4 A , 00 ,S8 , 23 
,00, FD 

100 DATA36 , 00 , 00 , F0 , 23 , F0 , 70, 00 , F0 , 23 , 1 
8.E4..0C28.0B, CD.4A, 00, 68,20,05, E7, 2 
0.F3,i)C,0D,F0,7¡,00,l8,E3,E7,D0 I FD,46,0 
0,AF,eO,20,0D,FD,7E,01,CD,4D,O0,23,FD,2 

3 1 FO ) 23,18,EA,FO,7E,01 l CO,<0,00,23,10,f 
7,18,EF 

110 0ATA10 

PRUEBA DI 
FUNCIONAMIENTO 

Cuando hayas tecleado la rutina en 
un ensamblador o ejecutado el cargador 
de líneas DATA, te recomiendo que te- 
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elees el siguiente programa BASIC. Sir- 
ve para comprobar el correcto funciona- 
miento de la rutina. 

Luego de hacer un pequeño dibujo, el 
programa llama al compresor y borra la 
pantalla. Acto seguido espera la pulsa- 
ción de una tecla y vuelve a colocar la 
pantalla en su sitio invocando al des- 
compresor. Asimismo, te indicará el 
tiempo empleado en la operación y el 
número de bytes consumidos en com- 
primir la pantalla. He aquí el listado: 



LISTADO 3 



10 SCREEN2: KEYQFF 

20 PI=3 1415921 

) F0RF=-PIÍ0PISTEP.25 

40 Y=SIN(F): X=C03(F) 

SO LI»E(M50+127,YÍ40*96)-STEf(90*X,Y*9 

Cj,A8$(m6),BF 

60 KEX7 

70 DEFÜSR7-50000!:T1HE*0 

30 A=USR7(ü):T=TINE/50 
90 SCREEN0 

LOO PRÍHT'TIEHPÜ EMPLEADO EN COMPRIMIR 

:"TV 

i 10 PRINPMEM0RIA USADA: "A"by tes 

120 LCCATEO. 20:PRIKTTAB( 10)" PULSA UNA T 
ECLA* 

130 Z$=¡NKtV$:IFZ$=""THEN¡30 

U0 SCREEN2: T¡í1E=0 

150 A=USR7(l):T=T!ME/50 

160 2$=INKEY$:iFZ$= #- THEN160 

170 5CREENO:PRINT"TlEHP0 EMPLEADO EN DE 

SCOHPRIHLR'TV 

180 60T0110 

USOS DE LA RUTINA 

Como ya he dicho, el uso de la rutina 
es indicado en cualquier aplicación que 



necesite de un buen número de panta- 
llas y no pueda permitirse perder el tiem- 
po que el BASIC tarda en dibujarlas. 
Además, el espacio que ocupa la repre- 
sentación del gráfico de una función o el 
de un diagrama estadístico (de barras, 
de tarta, etc) es realmente pequeño. En 
la práctica, un Kbyte suele ser suficiente 
para contener estas pantallas. Puesto 
que los ordenadores de 64K tienen 32K 
libres para almacenar datos, es fácil dis- 
poner de bastantes pantallas gráficas 
en la memoria, ahorrando, asimismo, to- 
das las líneas BASIC que serian nece- 
sarias para realizar cada uno de los di- 
bujos. 

Otra ventaja sustancial es el ahorro 
de velocidad y espacio que se logra al 
guardar las pantallas comprimidas en 
algún soporte magnético (o al mandar- 
las a través de un MODEM). Por cierto, 
si piensas grabar alguna de ellas, debes 
tener en cuenta que he colocado el buf- 
fer en la dirección 35000. La instrucción 
a utilizar es: 

BSAVE" NOMBRE", 35000, 35000 + 
memoria usada. 

MODIFICACIONES 
EN LA RUTINA 

La rutina puede ser modificada para 
adaptarse a cada necesidad en particu- 
lar. Tal como está construida, el buffer 
se halla siempre en el mismo sitio, lo que 
hará que la compresión de una nueva 
pantalla borre totalmente la anterior. Tal 
vez sea interesante ir desplazando el 
inicio de este buffer a medida que se van 
almacenando las pantallas, de suerte 
que una empiece donde acabe la ante- 
rior. La forma de hacerlo desde el BA- 
SIC es con una línea como estas: 

10 POKE & HC35C, dirección -256 * 

INT(dirección/256) 

20 POKE & HC35D, dirección/256 




La manera de incrementar la variable 
«dirección» es hacer a cada compre- 
sión: 

dirección = 35000 +A 

No olvides que la variable «A» es la 
empleada para transferir parámetros y 
contendrá siempre la diferencia entre el 
principio del buffer (35000) y el final ac- 
tual. 

Por otra parte, la rutina está montada 
de forma que actúe sólo en la zona de 
nombres y del color de SCREEN2. Esto 
puede ser alterado haciendo que el re- 
gistro HL apunte al inicio de una nueva 
zona y DE al final de la misma. Lo que 
deberás tener presente es que, al volver 
a poner en su lugar una pantalla almace- 
nada en la memoria o en la cinta, el re- 
sultado puede no corresponderse con el 
original. Es preciso, además, que todos 
los registros del VDP sean preservados. 
Si programas en BASIC, lo único que 
deberás tener en consideración es el 
tipo de SCREEN y el de los SPRITES, 
que han de quedar como en el original. 

Otro punto a tener en consideración 
es que la rutina no hace comprobacio- 
nes sobre la dirección del puntero, así 
que deberás poner cuidado en que no 
acabe escribiendo datos sobre ella mis- 
ma. 

ALMACENAR 
LA PANTALLA 

Para concluir y por si aún no sabías 
cómo grabar la pantalla completa en la 
cinta (sin comprimir), te facilito una ruti- 
na muy simple para hacerlo. 

Se trata de poner toda la RAM de ví- 
deo en la RAM central a partir de la di- 
rección 38000. Luego, sólo tienes que 
grabarla con: 

BSAVE"NOMBRE", 38000, 54384 

Esta rutina está colocada en la posi- 
ción 55000, así que deberás lanzarla 
con DEFUSR = 55000. 

Por otro lado, para llamar a la rutina 
inversa, encargada de volver a poner la 
pantalla en su sitio, debes hacer un DE- 
FUSR = 55013, seguido de un A=USR 
(0) o similar. 



LISIADO 4 



10 ORG 5S0OO 

20 BUF: EQU 38000 
30 i 

10 ; MOVER LA PANTALLA A LA RAM 

SO ; 

60 LD HL,0 

70 LD DE, BUF 

80 LD BC, 16384 

90 CALL #59 

100 RET 








no ; 

120 ; RECUPERAR LA PANTALLA 
130 ) 

140 LO HL.BUF 
150 LO DE,0 
160 LO BC. 16384 
170 CALL »SC 
180 RET 






. , 80 0ATA21, 00, 00-, 11 . 70, 34,01, 00,40. CD.59 
20 • GRABADOR/CARGADOR ,00,C9..2 ! ,70,94,11,00,00,01,00,40,CO,SC 
30 ' 

40 FOSX-55000 ! T0S5025 ! : REAOVf 
SO PÚKEX, VALÍ 'W'm) ! S»S«PEEK(X) 

60 NE1T Por JOAQUIN LOPEZ 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 



i— mi 



un j 



• 




MSX 2. a Edición 

N.~ 1,2,3,4 - 450 PTAS. 



MSX 2. a Edición 

N." 5.6,7,8 - 475 PTAS. 




I m 



I 



MSX9 150 PTAS. 



SpIcf&AVtOEO X r rtRESS 



MSX10 150 PTAS. 




, 10 PAGINAS OE 
PffOCPAMAS» 

LA RANA DEL ESPACIO 
TAHA PffflOOlCA 
MUNDIAL 83 



AQUI ESTAN 
LOS 20 
MSX 

or. 

ES 




MSX11 150 PTAS. 



MSX1 2, 1 3 300 PTAS. 






MSX14 160 PTAS. 



MSX15 175 PTAS. 



KACtAWQ&róiaiPttSOfA M' 



MSX16175 PTAS 





MSX17175 PTAS 




MSX18175 PTAS. 



MSX 19,20 350 PTAS 




MSX21 175 PTAS. 




MSX CODIGO 
MAQUINA - 275 PTAS. 



175 PTAS. 



MSX ESPECIAL 
SOFWARE - 275 PTAS 




MSX23 175 PTAS 



¡LA 1. a BEVISTA DE MSX DE ESPAÑA' 



PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 

BOLETIN DE PEDIDO - 



r 



Deseo recibir los números 



• •< 



■ • • # • a a . a • • • a • • • • • a • a • • a aaaaaaaaaaaaaaaaaaaaa ■ . 



h de SUPERJUEGOS EXTRA MSX 



para lo cual adjunto talón del Banco 
Nombre y apellidos 
Dirección 



n.' 



a la orden de Manhattan Transfer, SJL 



• 







• ■ 



.... 



..................................... 





Tel.: 







. Población 







DP. 



Prov. 



«No se admita contraxreembolso» 





f 




POR CLAUDIA TELLO HELBLING 



VAMPIRO 



Manhattan Transfer 
Formato: cassette 32K 
Mandos: teclado o joystick 




Vampiro te plantea una divertida 
excursión al castillo del famoso 
conde de Transilvania, vamos, el 
Drácula. El protagonista es Guillermo, un 
tío con sus pelos parados, muy moderno 
él, que decide meterse guiado por ti al cas- 
tillo y enfrentarse a fantasmas, calaveras 
y monstruos de toda índole. Su misión es 
atravesar todas las salas del castillo que 
son asimismo otras tantas pantallas. Si 
bien el nivel de dificultad es el mismo du- 
rante todo el Juego, necesitas mucha habi- 
lidad para ir superando las constantes di- 
ficultades y obstáculos que el Vampiro tie- 
ne diseminados en su lóbrego castillo, 
quiero decir murciélagos letales, espec- 
tros, etc. Dar saltos, subir escaleras, bajar 
a oscuros sótanos y por fin salir otra vez 
al exterior, pero la cosa no queda ahí. 
Quiero decir que si bien el Juego finaliza, 
tienes una gran sorpresa pues lo que apa- 
rece es... 

Tienes seis oportunidades de sobrevivir 




1 





W 




y salir adelante. No puedo decirte mucho 
más porque en realidad se trata de un Jue- 
go de misterios y desvelarlos significarla 
quitarle emoción. Esto no quiere decir que 
sólo puedas Jugarlo una sola vez, sino que 
es muy atractivo ir descubriendo los peli- 
gros paso a paso. 

Una cosa, al finalizar el juego por elimi- 
nación o porque hayas conseguido tu obje- 
tivo, aparecerá en pantalla un OK. Si quie- 
res seguir jugando sólo tendrás que pul- 
sar F5 y luego elegir Joystick pulsando 1 o 
teclado pulsando 2. 

Que tengas suerte y sobre todo no olvi- 
des la ristra de ajos y el crucifijo de plata. 



Grafismo: bueno 
Sonido: correcto 

Conclusiones: entretenido y muy promete- 
dor. Los colmillos de Drácula siempre están 
dispuestos. 
Precio: 800 pts. 



SHARK HUNTE R 



1. Software/Sema 
Formato: tarjeta 

Mandos: teclado o joystick 




1 



A 



• I 




e aquí un pobre pescador que está 
desesperado por defender su pes- 
ca. La causa de su desesperación 
os la explicamos a continuación. Resulta 
que este buen señor se pasa días y días re- 
mendando redes, que los malvados tiburo- 
nes le destruyen constantemente. Hay 
una Tínica manera de alejar a estos visi- 
tantes tan dañinos y el sufrido pescador 
tiene que disparar sus dardos de manera 
casi continua para poder defender sus re- 
des. Pero este no es el único problema que 
se le presenta, ya que los icebergs que vie- 
nen de alta mar también destruyen sus re- 
des de una manera tan desafortunada que 
se le escapan los peces que había en ellas, 
y que son el elemento vital y necesario 
para alimentar a su pueblo. 

Si de verdad te conmueven estas odiseas 
del pobre pescador y quieres ayudarlo 
para que pueda descansar, tú debes ocu- 
par su lugar, pero cuidado cuando estés en 
el agua porque estos tiburones están muy 
hambrientos y no les basta con alimentar- 
se de peces... 

Los icebergs, al contrario que los tiburo- 
nes tienen una ventaja, porque te sirven 
de apoyo para cruzar de una isla a otra, 
pero jCuidado! no te demores mucho enci- 
ma de una sola isla puesto que tu peso pue- 
de hundir el hielo. 

Contaras con un arpón para defenderte 
pero sólo puedes correr vertical u hori- 
zontalmente. 

Los puntos los consigues por cada tibu- 
rón que caces (20 puntos), por cada red 
reparada (10 puntos), y por hundir ice- 
bergs (30 puntos). Ademáis al final izar la 
partida se cuentan los peces que has sal- 
vado y se suman a los puntos obtenidos 
hasta el momento 



Graflsmo: muy bueno 
Sonido: correcto 

Conclusiones: juego divertido que pone a 
prueba la rapidez de reflejos y la habilidad 
para salir de los continuos trances del pro- 
grama 

Precio aprox 5.100 pts. 



SWEET AC0RN 
(LA BELLOTA) 



Serma/ E. Software 
Formato: tarjeta 
Mandos: teclado o joystíck 



1 objetivo del juego es ayudar a una 
traviesa bellota a escapar del Jar- 
dín mágico. Este jardín está habita- 
do por Judías y pimientos que persiguen a 
las bellotas. Pero estas que son muy espa- 
biladas, antes de quedar atrapadas en el 
Jardín se habían provisto de pequeñas be- 
llotas, las que luego en los momentos de 
peligro les sirven de armas para defender- 
se de sus enemigos. 

Una vez que comienza el juego, nuestra 
amiga la bellota debe eliminar a todos los 
enemigos que se les presente. Pero hay un 
problema... en el jardín, aparte de judías y 
pimientos se encuentra unos objetos que 
obstaculizan los disparos de la bellota. 

Para disparar es necesario que midas 
antes la potencia del disparo, y para ello 





Hr,HHiiflMiiiMmnnri 



tienes el medidor en la parte superior de la 
pantalla. [Ahhh!, debes tener mucho cui- 
dado ya que las paredes del jardín permi- 
ten que las pequeñas bellotas reboten y 
esto da como resultado que tu bellota que 
en un principio te servía de defensa, ahora 
se vuelva atacándote a ti. 

Tanto las judías como los pimientos 
pueden ir cambiando de colores. Pimien- 
tos blancos a los que no debes temer; pi- 
mientos amarillos aue son lentos Dero De- 
ligrosos; pimientos rojos que se dividen 
en dos al ser tocados por una bellota de- 
fensiva; pimientos azules que os dejarán 
tesoros; pimientos negros que son los más 
peligrosos y por último pimientos mági- 
cos que son invisibles. También se en- 
cuentran en este jardín una criatura en 
forma de bola que sale de vez en cuando 
para atacar a las bellotas. ¡Ten cuidado!, 
ésta es la parte más peligrosa. 



Graflsmo: correcto 
Sonido: apropiado 

Conclusiones: iuego de habilidad. Recomen- 
dable para los fanáticos de este tipo de juegos. 
Precio aprox. 5 1 148 



CAMEL0T 
WAREI0RS 



Dinamic 

Formato: cassette 

i: teclado o joystick 



Si eres atrevido (o atrevida) introdú- 
cete en el misterio que encierran es- 
tas 4 emocionantes etapas que voy a 
presentarte. Dichas etapas las podríamos 
definir como cuatro mundos diferentes 
que tendrás que recorrer e incluso, yo te 
diría que de una manera más intrigante, 
ya que podrás hacerlo en contra del tiem- 
po, hasta llegar al fantástico mundo del 
Rey Ar turo. 

1.° MUNDO: El Bosque; Aquí hay que 
destacar a Aznaht, amo del bosque y a su 
hechicero. Este último te ayudará a salir 
de aquí si consigue con su hechizo conver- 
tirse en un «batracio». Pero como la cosa 
no puede resultar tan fácil aparecerán 
otros personajes tan siniestros y peligro- 



sos que te mantendrán el estado de alerta 
pues en cualquier momento puedes caer 
en una nueva trampa o sucumbir bajo los 
efectos de un nuevo hechizo. 

a.° MUNDO: SI Lago; Nuevos obstácu- 
los te esperan en esta etapa como son: los 
peces asesinos, medusas que transmiten 
electricidad si las llegas a tocar, etc. Para 
no llevarte una sorpresa debes saber que 
este la go tien e un rey llamado Kindo. 

3.° MUNDO: Las Grutas; Has conse- 
guido llegar al mundo de las grutas, que es 
un ambiente totalmente desconocido para 
los que viven en la superficie y por lo tanto 
tendrás dificultades para respirar; ¡Apú- 
rate chico!, has de encontrar la salida 
cuanto antes para no asfixiarte. Y cuidado 
con los tropiezos, ya que el dragón Azor- 
nlc, señor de las grutas, puede salir a tu 
encuentro y te pondrá las cosas más com- 
plicadas. 

Y por fin el 4.° MUNDO: XI Castillo de 
Camelot, donde tendrás el honor de cono- 
cer al famoso Rey Arturo. Para salir de 
este «pasillo del tiempo», deberás antes re- 
solver el enigma de este mundo. Resulta 
que en este lugar hay cuatro elementos del 
siglo xx, debes coger los cuatro y presen- 
tarlos a los amos que irás conociendo en 
esta etapa. Para defenderte de brujos, dra- 
gones, trampas, etc, posees una bonita y 
fiel espada. Los movimientos que efectúas 
son los normales, además de un potente 
salto para esquivar ciertos peligros. 




Graflsmo: muy bueno 
tenido: correcto 

Conclusiones: es un juego de laberinto y 
misterio al estilo de la famosa Booga Boo, 
muy bien diseñado. Vale la pena 
Precio aprox. 2.300 pts. 



MAD FOX 

Instrucción de carga 

CLOAD "MAJDFOX 




Par/sume 



Mande i Oiré 



Interesante programa educativo, especialmente pensado para alumnos de bachffierato, que pernúte conocer laarepra^ 

™ programa de Hepresentadón gráfica de fundones tiene una serie de aspectos interesantes pan estudiantes y profesores, 

a quienes facilita la comprensión de sus aplicaciones. 
A modo de ejemplo señalemos que la opción 4 permite conocer hasta 28 gráficas distintas, las mas importantes de las cuales 

han sido programadas de antemano. 
Las opciones 1 , 1 y 3 permiten introducir cualquier fundón para conocer cuál es ra repre 

es decir, cartesianas, paramétricas y polares. 
Una ves terminada la representación gráfica sólobasta con pulsar íl para volver al menú principal. 



r 



(REPRESENTACION GRAFICA | 
I DE FUNCIONES | 

I I 
I Jaime Oellunde I 



» i 



j 



10 
15 
20 
25 
30 
35 
40 ' 

60 ONEPROR6OTO1170:6OTO350 
70 ' 

80 ' Ecuaciones introducidas 

100 Y=C0S(X) 
150 RETURN 
200 X=5tC0S(T) 
250 Y=5»SIN(T) 
275 RETUPN 
300 R=1+C0S(Z) 
310 RETURN 
320 ' 

330 ' Presentación 
340 ' 

350 SCREEN0 , , 0 : H IDTH37 : KE YOFF : COLOR 1 , 1 1 , 
! 1 : KE Y 1 , " 6OTO890 " +CHRS ( 1 3 ) : KEY2 , " GOTO 1 04 

0 , *CHP*(13)¡KEY3,"GOTO1250"+CHR$(13):PRI 
NT 

360 PRINT" , ,« 

370 PRINT' | REPRESENTACION GRAFICA I " 
380 PPINT" ! I» 

390 PRINT" | DE FUNCIONES |" 

400 PPINT" 1 1» 

410 LOCATE 0 , 9: PRINT'M E N U* 

420 LOCATE0, 12: PRINT" 1 s En coordenadas 

cartesianas":PRINT:PRINT"2 e En coordena 

das para»étricas":PPINT:PRINT"3 s En coo 

rdenadas polares":PRINT:PRINT"4 í Gráfic 

as elaboradas":PPINT:PRINT"5 s Fin de pr 

ograia' 





430 PLAY"V804L54CEC" 

«0 YU=VAL(INKEV$):IFYU<1ORYU>5THEN440EL 
SE D LAY"ECE" 

450 ONYUGOTO870, 1020, 1230. 1420 
460 CLSiEND 
470 ' 

480 ' Ejes cartesianos 
4°0 ' 

500 SCPEEN2:0PEN"GPP:"AS1 
510 LI=FIX(A) 

520 DI=240/(8-A):DO=240/(8-A)*A 

330 DRAN"Bf!10.95R23°BN0,0R255D191L255":S 

540 FORX=ATOBSTEPST 

550 IFX>=LITHEN6OSU8670:DRAN"8N=)(Pj,94O2 
B :LI=LI+1: IFLI=1THENDRAWBH=XP; , 191U191" 
:PSETSTEP(3,0):PRINT*l,"y":XD=XP-l 

560 NEXTX:PRESET(242.86):PRINT*1.V 
570 X=A:GOSUB670:P1=XP 

580 X=A+1:GOSUB670:P2=XP 

590 DF=INT(P2-P1) 

600 FORI=0TO150 

610 IF!I-73.5>(1ODDF=0THENPR=I»1.3:DRAN"B 

M=XD;.=PR:R2" 

620 NEXTI 

630 RETURN 
640 ' 

650 ' Caabio de base 
660 ' 

670 XP*10+DItX-DO 
680 YP=95-Dimi.3 
690 RETUPN 
700 ' 

710 ' Suborograia de datos 
720 ' 

730 CLS:LOCATE2,10:PRINT"SPADO DE RESOLU 
CION (1-3)? " ; : D=VAL ( INPUT* ( 1 ) ) : IFD=0OR 







_ 



D>3THEN730 

740 IFD=1THENND=.5ELSEIFD=2THENND=1ELSEN 
D=2 

750 RETURN 

760 CLS:LOCATE1,10:PPINT"REPRESENTACION 
CONTINUA (S/N)? "¡ 

770 FRS»INP'JT$( 1) : IFFR$="S"ORFR$=*s"THEN 

C0M:RF-lELSEIFFR*O"n"ANDFR$O"N"THEN77 
0 

7B0 RETURN 

790 CLS:LOCATE0, 10: INPUT" INTERVALO A CON 
SIDERAR (a,b)":A,B:IFA>=BTHEN790 
800 RETURN 

810 0NKEYG0SUB1 190: KEY ! 1 ! ON: RETURN 

820 CLS:L0CATE3,B:PRINT"VARIACI0N DEL":L 

0CATE3, 10: INPUT"PAPAMETRO T (Ti,Tf!";T0. 

TI: IFT0>=T1THENB20ELSERETURN 

830 CLS:L0CATE3,8:PRINT"VARIACI0N DEL": L 

OCATE3,10:INPUT"AN6ULO 0 (9i,9f)":Al,A2: 

IFA1 >=A2THEN830ELSERETURN 
840 ' 

850 ' Gráfica en cartesianas 
860 ' 

870 CLS:LOCATE0,3:PRINT"COORDENADAS CART 
ESIANAS*:LOCATE0,6:PRINT"Hay que introdu 
cir la función en la línea 100 en la fo 
na Y=f(X)" 

880 LOCATE0, 9: PPINT'EJEMPLO: " : PRINT: PRIN 
T"100 Y=COS(X)":PRINT:LOCATE0,14:PRINT"C 
uando acabes pulsa Fl.":PPINT"Para aband 
onar la gráfica taibién Fí . " : PRINT: END 
890 KEY1 , " " : GOSUB790: 6OSUB730: 6OSUB810: G 
OSUB760.-GOSUB500 

900 ONERRORGOTO1170:ST=(B-A)/240/ND 
910 FORX=ATOBSTEPST 

920 IFHO0THENGOSUB1570ELSEGOSUB100 
930 6OSUB670: IFER=1THENRF=0: 6OTO960 





PROGRAMAS J 




QUI HALLARAS TODO 

SOFTWARE DEL 
ERCADO EN MSX. 
NO TE LO PIERDAS. 

Programas de juegos 
utilidad, educativos, 
gestión. Una guía 
completa con más 
de 100 títulos. 
Cassettes, cartuchos, 
diskettes, tarjetas y 
libros. 

Además todas las 
empresas de hardware 
software con sus 
direcciones y teléfonos 
Un número 

imprescindible para el 
suario MSX. 
A ESTA EN TU 
UIOSCO 

SX CLUB ESPECIAL 
SOFTWARE algo FUE 
SERIE. 
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|940 IFPF= ! ANDX >ATHEIfl. INE-'XP, YP > ELSE P SET 
(XP.YP) 
1950 PF=CO 
=60 EP=0:NEXTX 

«70 6OTÜ1380 
"80 ' 

1000 ' Gráfica en para»*:", cas 
1010 ' 

1020 CLS:L0CATE?.3:P*IN7T.G3RDENADAS 

AKTRICftS*:L0CflTEf,6sPRIHT*Hay que ietro 
di::.' '.h; erji:::'- 1 ?? ?- las l incas ¿0? y 

1:0 en la feria X«f(TJ e MID con 

T :mc uaraiatro." 

: T0 LOCATE?. 10s t 'RIN T "EJE!1 e ''-!?:":PP!N , T:PR 
INT'200 X=5tCOS'- í ":F=:NT"2í0 Y=5tSIN(T! 
*:LOCATEf . 1 r : " c INT'Cuantíc acabes pulsa F 
2.": C5 INT" p ara abandonar la gráfica país 
a Fl. •íWan?:0i 

1040 KEY2 . " ■ : B0SUI7W: GOSUB820: 6OSUB730 : 
50St»8tfi60SÚB7éf:60SüKff 

Iñl ONEPPQP5OTC1170:ST=f T :-T0)/243/ND 
:«í0 C0P T =-?T2T1STEPS7 
1|7| IFHO#THEN60SUB157reLSI60BUB2H 
10B0 GOSUB670 

1090 !FE r "=;^ENFc=?:GOTO1120 
1100 I cf- r r : AS'C T - T0THEKL ! HE- ( XP . YP ) ELSEPS 
ET'XF.Y») 

111? PP=CO 
1120 EP=0:NEX T - 

1130 SO T 2!3B0 
114? » 

1150 ' Errores 

1160 1 

1170 IFEPR*110PERR*60RERR*3THENER*1 : RESU 
NENEXTELSE I FERR*2THERSCREEHi t CLS : LOCATE! 
,10:F!:!NT"Er'or de sintaxis en la linea" 
ERL:FF!N T :PP!NT:END 

1180 SCFEEN0:P'!N T "ERPOP"ERP"EN LA LINEA 
"EPL:END 
ll c ? RUN 
1200 ' 

121? ' 5ráfica en solares 
:220 ' 

1210 CLS:L3CATE0.3:PPINT-CQQFDENftDAS PUL 
ARES" ¡LOCATE?. 6: PF:!NT"Para representar 1 
a función en la foraia f=f(B) hay que 
:rt'?ducirla en la línea 300 en la forte 
P=f(Z).con R el módulo y Z el ángulo." 
1 2*0 LOCATE0. 1 1 : PRINT'EJEHPLO: " : PRINT: PR 
INT"300 P=l+COS'Z)":LOCATE0,15:PPINT"Cua 
ndc acabes oulsa F3. "¡PPINT'Para abandon 
ar la gráfica pulsa F1.":PPINT:EN0 
12S0 KEY3, " * : GOSUB"0: GOSUBB30: SOSUB730: 



GOSU8B10;GOS'JB760¡SOSUB500 

1 260 ONERROPGCTOl 170: ST« (A2-A1 > /240/ND 

1270 F0RZ=A1T0A2STEPST 

1280 IFHO0THEN6OSUB15 7 ?ELSEEOSUB!00 

12°0 X=RICQS!Z , :Y=F:«SIN'Z) 

1300 EOSUB670 : ! FER» 1 THENRF*0 : 50T0 1 330 

1310 IFRF- 1 ANOZ >AN 1 THENL I NE- í XP . YP ) ELSEP 

SET(XP.YP) 

1320 RF»CO 
13*0 ER=0;NEXTZ 

1310 5OTO1380 
1350 ' 

1360 ' F; P de gráfica 
1370 ' 

13B0 COLOR,. 6;FOPI=1TO10:!1U=RND(1) t8+l:M 

L't=CHRí (65*RND ( 1 ) »6) : PLAY"V8L640=f1U¡ XHU* 

; " : NEXTI : COLOP. , 2: FQPI« 1 YO400t NEX7! : 60TO 
138? 

1390 ' 

1400 ' Gráficas elaboradas 
1410 * 

1420 CLS:PPINT" MENU DE GRAFICAS (I) 

I 

1430 LQCATE0.5:FQPI=1TO13;READH$:PP!NTSP 

C(5)HEX»(I>" 5 "HliNEXTI 

1440 LOCATE0,20:PPINT"SELECT s Otras grá 

ficas 

1450 J$=INPUT$(l):IFJ$=CHRf(24)THENl460E 
LSEH=VAL("ícH'+J$) : IFH< 1ORHM3THENI450ELS 
E1500 

1460 CLS: PRINT" MENU DE GRAFICAS (II 
)■ 

1470 LOCATE?. 5¡F0RI s lT012:READHs¡PRINTSP 
C(5)HEX$(D" 5 "HSiNEXTI 

1480 LOCATE0.20:PRINT"SELECT i Menú prin 
ci cal "; 

1490 J$=INPUT*U) : I F J$=CHP« ( 24 ) THEHRUNEL 
SEH=13+VAL("*H"+J»):IFH<14ORH>25THEN1490 
1500 GOSUB1550 

1510 GOSUBB10:6OSUB500¡ONAAGOTO900. 1050. 

1260 

1520 ' 

1530 ' Selección de gráficas 
1540 ' 

1550 ONHGOTO1620, 1640, 1660. 1680, 1700. 172 
0. 1*40. 1760, 1780. 1800. 1820, 1840, 1860. 188 
0, 1900. 1920, 1940, 1960, 1990, 2010. 2030, 205 
0,2070.2090.2110 
1560 RETURN 

1570 ONHGOTO1630, 1650, 1670, 1690, 1710, 173 
0. 1750. 1770. 1790, 1810, 1830. 1850, 1870. 189 
0,1910, 1930, 1950. 1970. 2000. 2020. 2040, 206 
0,2080,2100,2120 
1580 RETURN 



1590 * 

1600 ' Ecuaciones elaboradas 
1610 ' 

1620 AA=3: ND=1 : CO=t ; 8=. 9: A=-B:A2=6.3 
1630 R«. 5: RETURN 

1640 AA=2:ND=1:C0=1:B=.9:A=-B:T1=6.3 " 
1650 X=.7tC0S(T):Y=.5tSIN!T):RETURN 
1660 AA=2:ND=3:A=-l:B=5:Tl=2:T0=-2 
1670 X=T*T:Y=T:RETURN 
1680 AA=1:ND=3:A=-5:B=5 
1690 Y=1/X:RETURN 

1700 AA>1:CO>1:ND*1:A>-10:B*10 
1710 Y=SIN(X):RETURN 
1720 AA=l:C0=l:ND=l:A=-7:8=7 
1730 Y-TAN(X) ¡RETURN 
1740 AA=1:ND=2: A=-10:B=10 
1 7 50 Y-INT(X)iRETURN 

1760 AA>1:ND-2:B«8:A*-B 
177? Y=X-INT(X) ¡RETURN 
1780 AA= 1 : ND= 1 : C0= 1 : B= . 9: A=-B 
17?0 Y=ABS(X) ¡RETURN 
1800 AA=1:ND=1;C0=1:B=4:A=-B 
1810 YM/(l+XlX)¡RETURN 
1820 AA=1:ND=1:CQ=1:B=6¡A=-B 
1830 Y=EXP(X) ¡RETURN 

1840 AA=2¡ ND=1 : COM : A=-l ; B=5; Tl=l . 8¡ T0«- 
Tl 

1850 X=EXP(T):Y=T:PETURN 

1860 AA«1:C0«1:MD«1:B«2.5:A»-B 
1870 Y=EXP(-XlX) ¡RETURN 

18B0 AA=1:ND=1:CG=1:B=7:A=-B 
1890 Y='EXP!X)+EXP(-X))/2¡RETURN 
1"00 AA=2:ND=2: A=-3:B=3:T1=10:T0=-T1 
1910 X=3IT/(l+TtTtT):Y=3tTtT/(l+TtT$T):R 
ETURN 

1920 AA=2:ND=2:A=-.3:B=1:T0=-.9:T1=.9 
1930 X=TtT/(l+TtT) :Y=T»TIT/(1+T$T) :RETUR 
N 

1940 AA=3:ND=1:C0=1:B=1.5:A=-B:A2=6.3 
1950 R=SQR(C0S(2tZ) ) ¡RETURN 
1960 AA=l:ND=3:B=2:A=-B 
1970 Y=S0R(Xm(X+l)/(l-X))¡IFRND(lK.5T 
HENY=-Y 
1980 RETURN 

19*0 AA=2:CO=1:ND=1:A=-3:B=27:T0=-3:T1=2 
B 

2000 X=T-SI N ( T ) ¡ Y*l -COS ( T ) : RETURN 
2010 AA=2:ND=1:CQ=1:B=2:A=-B:T1=6.3 
2020 X=C0S(T) A 3:Y=SIN(T) A 3:RETURN 
2030 AA=3: ND=1 : C0=1 : A=-2: B=3: A2=6. 3 
2040 R=1+C0S(Z): RETURN 
2050 AA=2: ND=1 : C0=1 ¡ B=20: A=-B: Tl=20 
2060 X=COS(T)+T»SIN(T):Y=SIN(T)-TICOS(T) 
¡RETURN 



2070 AA=3:CO=1:ND=1:B=20:A=-B:A1=0:A2=20 
2080 R=Z/2:RETURN 

2090 AA=3s CO=i : ND'li B=2. 5: ft«-B; A2=3. 2 
2100 R=5IN(3IZ) :RETURN 

2110 AA=3:C0=l:ND=l:B=2.5sA=-B:A2=6.3 

2120 R=ABS(SIN(2IZ) ) :RETURN 

2130 DATACircunferencia, Elipse, Parábola, 



Hipérbola, Sinusoide, Tangentoide y asinto 
tas, Función parte entera, Función parte f 
raccionaria, Función valor absoluto, Curva 
de Agnesi 

2140 DATAFunción exponencial, Función log 
ar í tmica, Curva de Gauss, Catenaria (Chx), 
Foliui de Descartes, Cisoide de Diocles, L 



Bini serta de Bernculli.Estrcfoide, Ciclen 
de.Hipocidoide (astroide) 
21S0 DATACardioide, Envolvente circunfere 
ncia, Espiral de Arquífliedes.Posa de tres 
sétalos, Rosa de cuatro pétalos 




TEST DE LISTADO 




Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 1 0, de 



previamente hay 
octubre , pág. 29. 



10 


- 56 


330 


- 58 


520 


-222 


710 


- 58 


900 


-119 


1090 


-202 


1280 


í 


1470 


- 21 


1660 


-181 


1850 


- 20 


2040 - 66 


15 


- 58 


340 


- 58 


530 


-175 


720 


- 58 


910 


-168 


1100 


-148 


1290 


-188 


1480 


-183 


1670 


-128 


1860 


- 11 


2050 - 27 


20 


- 58 


350 


-235 


540 


-168 


730 


-212 


920 


- 57 


1110 


- 25 


1300 


- 18 


1490 


- 62 


1680 




18^0 


-128 


2060 -188 


25 


- 58 


360 


- 24 


550 


- 43 


740 


-216 


930 


-158 


1120 


-168 


1310 


-214 


1500 


-175 


1690 


-110 


1880 


- 62 


2070 -182 


30 


- 58 


370 


-146 


560 


-163 


750 


-142 


940 


- 85 


1130 


- 0 


1320 


- 25 


1510 


-131 


1700 


- 22 


1890 


-177 


2080 -106 


35 


- 58 


380 


-131 


570 


- 79 


760 


- 53 


950 


- 25 


1140 


- 58 


1330 


-174 


1520 


- 58 


1710 


- 65 


1900 


- 44 


2090 - 13 


40 


- 58 






580 


- 83 


770 


- 24 


960 


-172 


: 150 


- 58 


1340 


- 0 


1530 


- 58 


1720 


- 20 


1"10 


-226 


2100 - 67 


60 


-152 


400 


- 28 


590 


- 67 


780 


-142 


970 


- 0 


1160 


- 58 


1350 


- 58 


1540 


- 58 


1730 


- 69 


1920 


- 59 


2110 - 13 


70 


- 58 


410 


-124 


600 


- 73 


790 


- 57 


980 


- 58 


1170 


-172 


1360 


- 58 


1550 


-120 


1740 


- 74 


1930 


L i L 


2120 - 24 


80 


- 58 


420 


- 65 


61-0 


- 16 


800 


-142 


<?90 


- 58 


1180 


-186 


1370 


- 58 


1560 


-142 


1750 


- 61 


1940 


-253 


2130 - 41 


90 


- 58 


430 


-151 


620 


-204 


810 


-108 


1000 


- 58 


1190 


-138 


1380 


-107 


1570 


- 82 


1760 


-115 


1950 


- 28 


2140 -122 


100 


-124 


440 


-217 


630 


-142 


820 


-142 


1010 


- 58 


1200 


- 58 


1390 


- 58 


1580 


-142 


1770 


-135 


1960 


-110 


1150 -178 


150 


-142 


450 


- 83 


640 


- 58 


830 


- 42 


1020 


-114 


1210 


- 58 


1400 


- 58 


1590 


- 58 


1780 


-117 


1970 


- 78 




200 


-128 


460 


- 90 


650 


- 58 


840 


- 58 


1030 


-250 


1220 


- 58 


1410 


- 58 


1600 


- 58 


1790 


- 62 


1980 


-142 




250 


-126 


470 


- 58 


660 


- 58 


850 


- 58 


1040 


-149 


1230 


-166 


1420 


- 70 


1610 


- 58 


1800 


- 59 


1990 


-175 




275 


-142 


480 


- 58 


670 


-254 


860 


- 58 


1050 


-253 


1240 


-207 


1430 


- 22 


1620 


-119 


1810 


- 13 


2000 


- 56 




300 


-122 


490 


- 58 


680 


- 53 


870 


- 69 


1060 


- 42 


1250 


-160 


1440 


-186 


1630 


-238 


1820 


- 61 


2010 


-169 




310 


-142 


500 


-238 


690 


-142 


880 


- 22 


1070 


-157 


1260 


-217 


1450 


-249 


1640 


-118 


1830 


- 67 


2020 


- 0 


TOTAL: 


320 


- 58 


510 


-182 


700 


- 58 


8"0 


-136 


1080 


- 59 


1270 


- 12 


1460 


-143 


1650 


- 20 


1840 


- 49 


2030 


-106 


20211 





SUSCRIBETE HOY MISMO SI 



QUIERES ESTAR EN VANGUARDIA 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además ta condición de sascriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 

MANHATTAN TRANSFER, SJL 



Nombre y apellidos Deseo suscribirme a la revista 

SUPERJÜBGOS EXTRA MSX 

" ••♦*♦♦*** ♦ ••• •••••••••••••••• ••• ^ 

a partir del numero 

Calle N.° FORMA DE PAGO: Mediante talón ban- 

cario a nombre de: 

Ciudad Tel MANHATTAN 

CL Roca i BatUe, 10-12 
Provincia 08083 Barcelona 




liéis exactamente el nuevo número de los 




1.780, 

a.ooo, 



América por avión 



28 USA $ 






GENETICA 




Por luís (¡mito 



Programa educativo que explica aspectos fundamentales de la genética y que introducen al estudiante en aplicaciones prácticas de la materia. 
Lo más inteiesante de este programa, que estractnralmente ba rido dividido en dos partes, es qpie la prloma introdace al alumno en la materia y en la segonda 

■ I le permite realizar algunos experimentos. A fin de tener una idea práctica de este punto su autor nos remite el siguiente ejemplo: 
En el conejo, la piel con manchas (M) es dominante sobre la piel uniforme (m) y el color negro (I) es equipolente con el pardo (P) ¿Cuáles serán los genotipos 
del crus amiento de un conejo con manchas y negro híbrido (MmHI) con otro de color uniforme y pardo oscuro ( mmlíP) y cuál es su porcentaje? 

Para encontrar la solución basta con introducir los datos a medida que el ordenador los solicite: 

Para CABACTERES teclee «COLOR» y «UNIFORMIDAD» 
Para GENOTIPO MACHO COLOR. . . HI FENOTIPO. . . legro (híbrido) 
Para GENOTIPO MACHO UHIPOfi... Im FENOTIPO... Manchado (híbrido) 
Para GENOTIPO HEMBRA COLOR... NP FENOTIPO... Marrón oscuro 

Para GENOTIPO HEMBRA UNIFOR...mm FENOTIPO... Liso I ' 

! Después de cada entrada teclee RETURN. jx 
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mmttmmmmtmmtMt 
»tttm :- e n e T : : fi ttttrot 

nmt POF LUIS ¡3NZALEZ mm 



ttflltl PARA EXTRA-Í1Í MttMI 

: tttttommmmmimmtt 

: : üew m 

7Í SEFiJSPl-65:D£FüSP2-4a 

ii i*. :,u (^fim'AStii stREDa 

Qfí £2SUfi 1360 

:r a*usruí) 

til DRAM^istiS, 2c7d i77r234eSul&ih81 234 a 



u * 



[7% 



. w 1 w I L 

l f S...ei.4iPÓS í»tT04 

:o:,"±s~* [£♦*!) ♦ * c 141 g l S«l 2g3d 

3 : 7s' 

I4í KEXTHeE 
151 MJSR2(Í) 

: Ittlttft! BLOSUE Ittltttltt 
170 KL=23 

18$ A=8#:B=^0: R-l#i«A-3BjSllf«*TE0SIft* : 

sofríe 

: EOSUBS20 

m <E3 T 0RE 530 

: : c D =!:As2B:B*lf: READSNtt S0SUB4M 

221 &*28:B*ÍHÍ:READ SN$: S3SU84N 

::" A=2E:READ SN$;ECSUB4Í0 

W A=29:B=B*!0:F:EAD 5N$: GOSUB510: !1A=30: 

25« ^23:B=!0:FEAD 5N$:6O5US400 

26£ A-28: B*B*1I; REAOSHf ;60SU64ff9s 60SU852 
0 

270 ¿=29:B=1Í:F.EAD SN$: 5OSUB400 

281 FOR Q=l T 0 3:A=33:B=B+10:REAE SN$:50 

SüB400:NEXTQ:BQSüB5i0 



DSUB40Í : A»6f : B-?0 : SN$- ^DEL SEXO" : 6OSUB40 

0: eOSüBSlí: «A*23:R«5 
300 53SUB 7 00 

318 A*25iB*10:READ BN*:GOSUB4ffl 

320 A=2!:B=M0: C *EADSN$:5OSÜB400:5OSÜB!7 
0 

370 A-2S:B-18: REAOSNt: 60SUB488 

340 A=2::B=E>10:READSN$:EO5 , JB400:BOSUB51 

0 

350 !1A=33:* = 10:A=50:B=30:SNÍ="LEYES DE 1 
ENDEL" ! GOSUB400: EQSUB5! 0: R»5i A=28: B=10: R 
EAD 5N«: 6OSUB40Í 

360 A=2S:READ SN$: EQSUB400: A=28: READ SN$ 

: GCSUB400 : G0SUB5 10 : A=28 : B= 1 0 : FEAD SN$;G0 

SUB400: A=65:READ SN4:60SUB4#I 

370 A=23:B=BM0:F:EAD SN$: SOSUB400: B=B+10 

itFlll READ SN$: 6OSUB400 : 6OSUB510: A=28:B= 

10: READ SN$: GOSUB400: A=28: B=B+10: READ SN 

$;6OSL ! B400:A=28:B=BM0:READ SN$:6OSUB400 

380 Ai=INPUT$(l):CLS:GOTQ1070 

3^0 tt$M EXPONIENDO EL TEXTO MI 

400 OC=1:LC=0:SN$=SN$+" 

410 FOR C=: T 0LEN(SN$) 

420 LC=LC+! 

430 IF !UD*(SN$,C,l)=CHRi(32) THEN GOSUB 
460 

440 NEXTC 
450 RETURN 

460 NW$=rtID$(SN$,0C,C-9M> 

4 7 0 IF LC<MA THEN FOR E=1T0LEN(0W$) sPRES 

ET(A,B) JPPINTI1,HID$(0H$,E, 1) :A«A+RjNEXT 

E:6OTO490 

480 A=KL:B=BM0:F9RE=1TQLEN'OW$>:PRESET( 

A 9 B) : PRINTt 1 . HID$ (0H$. E. 1 ) : A«A*R: NEXTE: L 
C=LEN(NW$) 

490 0C=C*1 : GW$=NH$: RETURN 



500 'ttMtttt BORRANDO tltlttWttt 
511 A$=INPUT$(!):LINE(25,6 , '-(250,176M, 
BFiFETURN 

520 AS=INPy7$m:L:NE(2!,6M208,r6),l, 

BF: RETURN 

530 A$=INPUT*(Í):LINE '25,6) -'.174, 1741,1, 
BF: RETURN 

540 ' ttttt DATOS DE ?EXT0 tttttff 
550 DATA'Durante el último tercio del si 
glfl XIX, los conocimientos mitológicos fu 
eron estableciendo cue todas las células 
de los individuos de una misma esDecie 

posten un nüeero y leríologia constante 
de sus CROMOSQHAS . ■ 

568 DATA"E1 número de cromosomas tipleo 
de una especie se denomina numen DIPLQ1 
DE, y se simboliza por 2N." 
570 DATA"En la reproducción SEXUAL se ef 
ectüa una reducciin de les crososomas a 
la mitad en el Drn;esD llamado NEIOSIS." 
580 DA7A"Este número llamado HAPLOIDE, se 
simboliza por N." 

598 DATA "La condición dicloitie (2n) se 
restablece cuando se produce la f ecundac 
iAn.sl reunirse en una misma célula. la c 
élula huevo o CIGOTO. los N cromosomas de 
1 BABETO MASCULINO y los N cromosomas de 
1 GAMETO FEHENINV 

600 DATA"Posteri oriente a KENDEL se demo 
strí estadísticamente que cada individuo 
es portador de DOS FACTORES HEREDITARIO 
S para cada CARACTER. de los cuales sólo 
transmite uno a cada uno de sus descendi 
entes." 

610 DATA"Fara terminar con la Teoria Cro 
mosómica debemos tener claro que:" 



620 DATA"!.- Que los GENES se encuentran 
en les CROHOSONAS. " 

630 DATA"2.- Que varios GENES están en - 
i mismo CR0I1CS0MA, por le Que tienden a t 

ransiitifse : ,untos. H 

640 DATA"3.- Al igual Que les cromosomas 
píos genes se encuentran duplicados y ad 
tais ocupan un lugar d e t e r m i nado. 
650 DA T A n Cuande los GAMETOS masculino v 
femerino son producidos en diferentes in 
dividuos, v la clase de gameto producido 
por el individúe depende de su GENOTIPO, 
se di:? que hay una DETERMINACION GEN0 T : 
PICA DEL SEXO, y la diferenciación se::ual 
depende" 

660 DATA" de la segregación de una diferí 
r.cia génica en la NEIOSIS." 
670 DÁTA-EI tipa de CROMOSOMAS SEXUALES 
en una gran variedad de animales (inclui 
do en hoüíbre) es el llamado XY.Tras la M 
EIOSIS se eroducen dos tipos de CR0S0M0M 
AS T y otros T.Los buzamientos son 
siemcre de! tipo XX (mache) t XY (hembra 
)." 

680 DATA "La rtCQlbinacUfl de los GA m ETjS 
da origen a un 50X de cada sexo." 

¿o? 'tfUSfft FIGURA 2 tttftfttftt 

7 00 PRESE" 18?, 30) : D RINT#1, ■ XX" : PRESE T (2 

30,30) :PRINT|i/XY":DRAW"9M!O5,40D:0":DP 

AW"B'236.40NM+10,*30M-10,+30' 

710 DPAW"BMP:.- T ! ,, :PFINT#l/X ,, :DPAW"P?i:: 

f,* T !":PR!NTi: f "X tt :DRArBM242,T5":PRINTll 

720 D*AW"BM196,35M+40, + 10M245,85":DPArB 
' K232,105":>RINTtl, B XY" 

730 DRAWBH!?6,95M*i0, +40M228, 95":DPAW"B 
H200,13!":PRINTtl/XX":RE T! J c :N 
¡740 DATA"MENDEL dejó sus conclusiones en 
forma de dos LEYES muv sencillas." 
750 DATA"La primera dice: cuando se cruz 
an dos individuos de RAZA PURA que crese 
ntan un PAR de CARACTERES bien diferenci 
ades, los tipos originales se separen en 
proporciones definidas en la SEGUNDA GEN 
ERACION FILIAL." 

760 DATA "En la segunda MENDEL afirma QU 
e cuando se cruzan tíos o más PARES de CA 
RACTERES DISTINTOS se segregan independí 
entemente unos de otros. Esta segunda ley 
es también conocida como ley de la COMB 
INACIQN INDEPENDIENTE." 
770 DATA"Los CARACTERES HEREDITARIOS deo 
enden de la acción de ciertos FACTORES G 
ENETICOS o "GENES" que los rigen. Estos 



aparecen en parejas. cuyos mientes ? r oc 
edén r esoectivamente del -ADRE y de la M 
ADRE" 

780 DATA", en todos los individuos frute 
de la uniin BISEXUAL. " 
790 DATA"No obstante, las células 5ERMINA 
LES maduras contienen solamente un mienb 
ro de cada PAP C c, Q*Q50MICQ,a consecuenci 
a de la MEIQSIS' 

800 DA T A M .proceso oor el que los partic 
icantes =e ccnjugan.se separan y se diri 
gen a polos opustos.al azar en la DIVIE 
DN CELULAR. " 

810 DA T A"Lo5 mienbros de cada PAR DE ^: 
TOSES se denominan ALELOMOF; r OS.S: los mi 
enb r os de un oar ALELBHORFQ roseen natuf 
ale: = =: milar se denominan KOHOCIGBTICOS 
,y si son diftrentes HETER0CI60TIC1B, " 
820 DATA'Efl el iltite cas; lo mas cerne 
nte es Que la presencia de 'jr< tipo puede 
enmascarar la de! ptro.Cuandc ::u r ro es 
to recibe el nomtr? de carácter DOHINANT 
E. cuando se manifiesta un carácter no do 
minante se llama RECESIVO, ■ 

830 data m ei carácter egü: c :le* t e es la i 

ezcla de dos caracteres con igual ; us':a 
de t^ansfriisiin." 

840 'Wtttt FISURA 1 ttttttttft 

850 - 

860 p^ESE^ ^210.9) iP^IMT^I, M AA": " aa M 
B70 DRA» ,, bi216,lBnd2#bi24Í r i8d2l B 

880 A=208:B=A!.:A$= M MEIOSIS n :roFX=lTDLEN' 
A$MPRESE^A^I!.B):PRINTtl.MIDS(A$,X,l) 
:NEXTX 

8^0 DRArBM2!6.^ü20BM241,75U20":DRAW n BI1 
:i4 l 80 M : c 'RIN T #l/A":DRAW M BM23Q,80": c 'R!NT 
II, "a" 

900 A<=^ECüNDAClQN": c ORX=rDLEN'Ai) :PPE 

SET'22\65*Xt8>:*PINTtl,MID$'AM.M:NEX 
TX 

910 DRAW m BM216,90D^ m m:. MH+12,-4U70 ,, :F 
RESET(224, 16^;PRINTtl,"Aa H :RE T, JRN 
920 m SUBPU T INAS DEL SISTEMA!! 
'30 FOR X=1T0LEN(A$) 

940 PRESET(A+XtK,B):PRINT#l,MID$(A$,X,l) 

: NEXTX : RETURN 
950 FQf I=1TO50 

960 RUT SPRITEi,(C-B,»-2).K,l 
970 SWAP K,Y 

980 NEXTZ 

990 PUT SPRITE0,(C-9,D-2),15,0:FETUPN 

1000 RA$=INPUT$(l);R=P+6 

1010 IF ASC(PA$)=1;THENR=0:RETURN 

1 020 'PRESET (OR, D) ¡ PRINTtl , RA$:RB$=RBS+R 



A$ 

1030 BOTO 1000 

tf4| [f tt< s ?| AND M<*90 AND x^N T uENAS=" 

EquiDolente":GOSL , P c? 30:RETURN 

1050 IF N>=90 AND N>*90 THEN Af**faKiv 

e^iouinfiiiTim 

1060 AS= ,, Dominante"¡5OSüB í: 30:C'E T, JPN 
10 7 0 'tttttUt! BLOQUE 2 tftttffttt 

1080 DIM Z$<30):K*i5;Y*l 
1090 RESTORE1120 

1100 FCF A'ttOBiREAO At:S*eS**CHR$«VALí" 

!B^&$}):NEX T A 
1110 SPFI T E$'0)=S* 

1120 TATA 00000000,00001000,00000100,000 

00010,11111111,00000010,00000100,0000100 
0 

1130 K=5:A$="CACACTE R ES n,, :A=30:S=:0:5C3 , J 
P o :0:C=100::=:0:GOSUB^0:BEE : :3C5 , :P1000: 
CA$=PBt:*3*="" 

1140 !>100iD«^i:G0K09ViBBPtSO8e8!00f8 
EEtsRMsRBI-*" 

1150 IFLEHtCAf] iTHENCA$«HIDl CA*,!,i 
1140 tFL E N ( CE$ ) >6THEHCEf-flID$ (CE», 1 , 6) 
1170 LINE(2í f 1«#>- (240, IB8) ^ , B: LINE 1 
00»- (90, 1BÍ) :LINE(135, lf«) - (135, 18«> :LIH 

E^i80.i00^ :S'0.i30^:l!ne*:?,::^ - 240,; 

20)iLIHE(20.rfc0)-í240rl60>;L!HEt2* i !40)- 
(240,141) 

1180 A$="Genotip: c enotioo Benaainaciin" 
: A=89: B=?0: EQSt!B930:A*20iB-10í ¡ ft**CA$*" 
flacno" : : P= 1 26 : A$=CE^^ n Hache* :G0 

3UP°3l?:B=!A£: A$=CA$-" Hernia": 5]SüB c 70:B 
=166:A*=CEt* n NMbra"lSQSU8930 
U90 C*105sD*t0é:6DSüB?S0:6OSüBl#00i6$ll 

)=PB$:FBi=" n 

:200 IF LE»(6$an<>2THENU?0 
121? C-m:6OSÜB?50j5OS!JP1000: c P^'' 
:220 RlMLEmi6l(l},Í)jR2i*RIBHT$(61(t) 

,i):M=ASC(Pl$):N=ASC^2$í:A=130:B=106:3D 
SUB1040 

1230 C»t05: B s 12ó:6OSUB950: S0SUB1 J:SI(2 
!*RB$:RBI« -- 

1240 I c LEN(6$(2))< >2THER1230 

1250 C=134:GCSUB°50:eOS , JB1000:RBI = " H 

1260 P3*=iEr$'5$'2U::R4$=&I5H T $'5*'I> 

r UsA*18«:fi¿126jH*ASC(R3l):lt*ASC(M$):B0 

SUB1040 

1270 A$(l)=Pl$^3i:A*(2^í$+*4$:A$(7)= c 

2$*R3$:A$(4)=R2$*R4$ 

1230 C=105:D=146:5nsjB^0:5OS'JBl000: u $'l 

|sR8$:RBM ,> 

1290 IF LEN(H$'i)K>2THEN12B0 

1700 C=134:6OSUB í? 50:5OS , JB1000íRB$=" M 

1710 Sl**LEFT$ ( H* ( 1 U J sS2$sRI6HTf (Ht ü ) 



. 1) :A=180:B=146:M=ASC <S1$) :N=ASC(S2*) :S0 
SUB1040 

1321 :=135:D=166;5ÜSUB950:GOSUB!000;H$(2 
>=RB$:RB*="- 

1730 IF LEK(Ht(2))O2THENl320 

1340 C-l34i5OS'JB950:6OSUBlflfiRB»>" 
1350 S3*=LEFT$ <H*( 2) . 1 ) : S4$=PIGHT$ (H$ (2) 

. 1) :B*166:A*180:M=ASC(S3«) :N=ASC(S4$) :60 

SUB1040 

1360 B*'!!=si$*53$:B*(2!=Sl**S4$:BI(3)=S 
2**S3*:B$Í4)=S2*+S4* 

13-0 Q$=INPL'T$<1):CLS:PUTSPF:ITE0. '0.01,0 
,0 

1390 •tlltlll BLOQUE 3 ttttttttt ' 

13"0 LINE(206,6)-(224,26>,,B:LINE(228.6> 
-(245,26),, 8 

1400 PRESET (209.8) :PRINTil, R1>;R2$: PRESE 

" 231,8) :PRIHTI1,S1$}S2I 

1410 PRESET (219, 18) : PRINTI1, P.3$; R4$: PRES 

ET(23i.l8kPRIIITIl,S3f;S4l 

143: "EEE T <2!6.25>;DRAW"cl5«*7g?":PPESE 

' 236,26) sDRWclSnfTj?* 

1430 LHÍE(2l6,35)-(2t4,55),,BsLIHE(228,3 

! -«236,55),,B;L!HE(238,35)-(2«,55)„ÍJ 

lIKE(2t6,35)-t224,55),,B 

1440 PRESET ! 208. 3 1 ' : PR I N7t i , R 1 $ : PRESET ( 2 
16.3?) ¡PFINTdl, C 2$:PPE3ET'20S,47) : PRINTi 

1, R3l:PRESET(218 f 47):PR!NTil,R4$ 

1450 PRfSET(23f,37):PRlKTtl,S10:PRESETt2 

40. 37) : PRltlTt 1 , S2$: PRESET ( 230, 47) t PRINTI 
1,S3$:?PESE^243.47):PRINTI!.S4$ 

1460 F2P < * I T C0S7ER20 ; L ¡ NE . 2 1 2 , 70+X ) - 1 22 

2, -«*X) . . 2 : _2.NE 2 7 1 . 2'0+X ) - ' 242 , 90+ X ) , ,B: 

NEX T X 

1470 DRAM"b«2I5^ 72" i PRINTfl, Rlf : 0RAH"ba2 
23. 7 2":PR!NTI1,S1* 

1490 DPftr'bs215.90":PP!NTttl.R3$:DRHW"b(ii2 
35.80"¡PfiINTIl,S3$ 

1490 9F:ftH"bi215.97":PPIST#l,Pl$:DRAa"bt2 
35. : 3": : 'PINT»:,2:$ 

1500 DPAW"ba215. 101 " : PRINTt i, R4$: DFAWbm 
235,101':PRlNTIl,S4t 

1510 DRA«"bi215.112":PRINT#t,R2$:DRAW"bm 
22:.:i2":PRINTIl,S2* 

1520 0RA«"bm215, 12'3" : PRINT#1 , R3*: DRAWbai 
222,120":PRINTI1,S3* 

1530 DRA«"b»215.132 , :PRINT#l,R2$:DP.AW"bni 

235,132":PRINTI1,S2$ 

1540 DRAtt"bi215,141":PRINTtH,R4$:DRAWbm 

235,141":PRINT#1,S4$ 

1550 A=195: B=160: A$="CELULAS" : GOSUB930: A 

=185:B=170:A$='6ERHINALES":6OSUB930 

1560 LINE(30,15)-U75,90)„B¡LINE(66,15) 

-(66,90):LINE(101,15)-(101,90):LINE(137, 



15)-(137,90):LINE(30,34)-(175,34):LINE(3 
0,53)-(175,53);LINE(30.72)-(175,72) 
1570 A=20 : B= 100 : A*= " CRUZAM I ENTOS -X GENO 
TICS":6OSUB930 

1580 LINE(30,110)-(180,170),,B:LIHE(103, 
M0)-(103,170) 

1590 F0PX=1T04:PRESET(37$X,5) ¡PRINTM.AI 

(X> :PRESET(14 f 204X) :PRINT#1.8*<X):NEXTX 
1600 F0PX=1T04:F0RY=1T04 

1610 MI4«4Y)«M(l)*BI(yi 

1620 F0RW=1T04:C$(W)=«ID$(Z$(4$X+Y).M,1) 

¡NEXTW 

1630 Z«(4$X+Y)=C*< 1)+C$(3)+Ci(2)+C*(4) :P 

RESET(35tX.20tY>:PRINTtl,Z$<4tX+Y> 
1640 NEXTY.X 

1650 A=55 : B= 1 B0 : A$= "CLAS I F I CANDO " : G0SUB9 
30 

1660 'MltH CLASIFICANDO tiltil 

1670 S=0:FORX=1TO4:FORY=1TO4 

1680 IF Z$(4IX+Y)a$(4tX*Y+l)THENG0SUBl7 

20 

1690 NEXTY.X 

1700 IFSMTHEN1670 

1710 GOTO1730 

1720 S=1:SWAP Z$(4tX+Y),Z$l4tX+Y+l)¡RETU 
RN 

1730 2=5:Q=0:D=1 

1740 LINE(45.178)-(160,190).1.BF 

1750 IF Z$ ( Z ) =Z* ( Z+ 1 ) THEND=D+ 1ELSEQ=Q+ 1 : 

GOTO1770 

1760 Z=Z+1: IFZ=23THEN1810 ELSE1750 

1770 IF Q>4THENA=100:B=110+(Q-4) 110: YI=D 
/16tl00:GOTO1790 

1^80 A=30:B=110+QI!0:YI=D/16I100 

1790 K=6:A*=Z$(Z)+"-"+STR$(YI)+ , X":G0SUB 

930¡BEEP 

1800 D=1:GOTO1760 

1810 A=60;B=180:A$="¿OTRO CASO?" : G0SUB93 
0 

1820 H$=INPUTI(1):CLS 

1830 IFH$='s"ORH$='S"THENl 130ELSEEND 

1840 END 

1850 'ttttt PRESENTACION tiltil 

1360 DATA 91,67,93,196.32,76,85.73,83.32 

,71.79,73.90,65,76,69,90,32,80.79,78,67, 

69,196 

1870 DATA 45,83,65.78,76.85.67,65.82,32, 

40.67,65,68,73,90,41,45 

1880 PSET(80,30):DRAW"e94,19nl04,27«97,3 

2«101,36»87,41i88,35i80,30d4nf2ng2" 

1890 PSET(87.41):DRA«"ng3nd2nf2" 

1900 PSET(86.50):DRAWglh3e2";PSET(100,4 

0):DRAW"g2bl6fl':PSET( 101,38) ¡DRAM"f2d9g 

ld2gldlg5dlg2h2ulh2u3h2«-2,+2i-l,+3i-3,+ 











10f7e2h5e3";CIRCLE(98,46),2¡CIRCLE(92,47 

),2:PSET(98.46):PSET(92.47) 

1910 PSET(97,48):DRAW"d411bd312rldlulrl" 

: PSETI84, 75) : DRAW"nu5m-3,+6m+4 f +2»+5, -2o 

+2, -10ul2" : PSET ! 102, 57) : DRAH"nh2d25§+2, + 

5r3«+4,-10h3ul6«i-2,-6h3" 

1920 PSET ( 1 10, 60) : DRAWi+7, -3u2e2r2ne40d 

3g2hld4»-8, +2" : PSET (97, 63) : DRAW'nu2dl3ru 

-5,-lnn+5,-2bd5dl715nu20rl0ul0' 

1930 PSET(96, 100) :DRAWd514ulni-5, +3h2u5« 

♦6,-lulrl0i+6,+2f2d318uld213":DRA« í bni88, 

64uh«B-2,-l" 

1940 A=10:BM0:R=5 

1950 At="GENETICA:- LA HERENCIA DE LA VI 
DA":GOSUB2020:S=1 

1960 A=10: B=20: A*=STR1NG$ (32, CHR$ ( 195) ) ¡ 
6OSUB2020:S=0;A=30:B=30:A$= , Este pro 

grasa trata de ser una breve" :6OSUB20 
20:B=B+10:A=20:A*= u e instruc tiv 
a introducción en esta": GOSUB2020: A=20: B 
=B+10:A$='apasionante ciencia":6 
OSUB2020 

1970 A=30:B=B+20:A*="Con éste apr 
enderas"¡GOSUB2020 

1980 A$="- La teoria croiosónica de 
l a herencia" : A=30: B«B+15: GOSUB2020: A$=" 
- Deteni nación croaosóiica del s 
exc" : A=30: B=B+15: GOSUB2020 
1990 As="- Leyes de hendel":A=30;B=B+15: 
GOSUB2020 

2000 RESTORE 1860 : R=6 : S= 1 : A$= " " : A=40 : 6= 1 5 

0:FORX-1TO25;READC:A$=A$+CHR$(C):NEXTX;6 

OSUB2020: A$=" ' : A=60: B=160: FORX= 1T018: REA 

DC:A$=A»+CHR»(C):NEXTX;GOSUB2020 

2010 A$=INPUT$(1);CLS:RETURN 

2020 F0RX=1T0LEN(A») 

2030 IFS=1THENBEEP 

2040 PRESET(A+XtR,B):PRINTIl,HID$(A»,X,l 
):NEXTX 
050 RETURN 
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TEST DE LISTADO - 
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-207 
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- 58 
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-101 
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350 


-125 
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- 75 
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-203 


360 


- 71 
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- 58 


150 
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-221 
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-120 


50 


- 58 


160 


- 58 
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-203 


380 
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280 


-229 


390 


- 58 
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- 43 


290 


-190 


400 


- 68 


80 


-194 


190 


- 2 


300 


- 89 


410 


- 70 


90 


-230 


200 


-194 


310 


-200 


420 


- 16 


100 


-129 


210 


- 92 


320 


-228 


430 


-246 


110 


-138 


220 


-254 
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-200 


440 
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-215 
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1¿D0 
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- 00 
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-129 
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-121 
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- 58 
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-164 


1510 
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- 70 
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- 81 


920 


en 

- 58 


1 Aid 
1070 


- 58 
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- 34 




0 1 

- 81 


1j20 


ce 

- 55 
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- 70 
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- 64 


1970 -239 
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OOP 


- TI 
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-251 


1000 


1 ¿0 

-168 
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-199 


1380 
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-16o 


1oj0 
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1980 -208 
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7fl 




940 


y^ 

- 77 


1070 


-254 


1240 


-231 


1390 


07 1 

-231 


1540 


- 63 


i Loa 

1070 


oz 
- 96 


i oía 
1Ü40 


1 TO 
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1990 -248 




JO 


0 Jv 


- 17 


800 


-252 


950 


-247 


1100 


1 7 ñ 

-174 


1250 


- 58 


1400 


k 0 

- 48 


1550 


OC/2 

-250 


1 rfi 


- 83 


lOJV 


" JÜ 


2000 - 26 


S10 


-246 


660 


-149 


810 


- 97 


960 


-127 


ni0 


-179 


1260 


- 64 


1410 


- 72 


1560 


- 77 


1710 


- 95 


1860 


-136 


2010 - 1 


520 


-204 


670 


- 85 


820 


- 23 


970 


-116 


1120 


-198 


1270 


-152 


1420 


- 74 


1570 


-219 


1720 


- 27 


1870 


-234 


2020 -251 


530 


-170 


680 


-113 


830 


- 45 


980 


-221 


1130 


- 66 


1280 


-219 


1430 


-233 


1580 


- 82 


1730 


-105 


1880 


-247 


2030 -121 


540 


- 58 


690 


- 58 


840 


- 58 


990 


- 26 


1140 


- 57 


1290 


- 21 


1440 


-116 


1590 


-103 


1740 


- 6 


1890 


- 43 


2040 -140 


550 


-144 


700 


- 35 


850 


-242 


1000 


-135 


1150 


-135 


1300 


- 58 


1450 


-208 


1600 


-205 


1750 


- 83 


1900 


-238 


2050 -142 


560 


- 63 


710 


- 22 


860 


-109 


1010 


- 38 


1160 


-147 


1310 


- 80 


1460 


- 99 


1610 


-119 


1760 


-160 


1910 


-151 
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-161 
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- 36 
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-244 


1020 


- 46 


1170 
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1320 


-240 


1470 


-223 


1620 


- 33 


1770 


- 71 
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-204 
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-234 
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- 96 
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-130 


1180 


-218 
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- 67 


1480 


-225 


1630 


-116 


1780 


- 27 
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- 46 
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- 90 
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- 58 
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-229 


1640 


- 96 


1790 


-174 


1940 


- 94 
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CJLD, 

Por Antonio Sánchex Cídíi 



viador de vuelo con cuatro niveles de dificultad, contador de disparos y misiles y posición de disparo. legniere mucha 



INSTRUCCIONES 

El avión se controla a través de las te- 
clas del cursor de la siguiente forma: 

La tecla superior mueve el avión hacia 
delante. Igual ocurre en la pantalla infe- 
rior. Si se pulsa la superior más la de la 
derecha se mueve el avión adelante y 

arriba. 11 

La superior más la de la izquierda/el 
avión se mueve adelante y abajo. 

Las teclas de la derecha o izquierda 
no hacen nada por si solas. 

La tecla inferior mueve el avión hacia 
atrás, ocurriendo iaual en la Dantalla in- 




La inferior más la tecla derecha o iz- 
quierda realiza un movimiento diagonal 
hacia atrás, según las teclas que se ha- 
yan pulsado. 

Teclas de altura y disparo 

Para que el perfil de nuestro avión 
suba es ne cesario mantener pulsada la 




10 REM ••Iniciación de la pantalla 
20 SCREEN 0,0,0 
30 CLEAR 300 

40 KEY OFFsWIDTH 37 

50 CLSsCOLQR 15,4,4 

60 REM "Opción!!-» 

70 LOCATE 10,4;PRINT "Nivel A - 

80 LOCATE 10,7:PRINT"Nivel B" 

90 LOCATE 10,10:PRINT n Nivel C B 



elolijetivo,quees(lerr 

tecla «1 » hasta que se produzca el mo- 
vimiento. Igual ocurre con la tecla «2» 
para disminuir la altura. Oprimir la tecla 
«3» para los disparos, pero solo una vez 
por disparo. Oprimir la tecla «4» para los 
misiles, pero también una sola vez por 
disparo de misiles. 

Derribo del avión enemiga gft - 

Sólo se producirá el derribó cuarxlo el 
avión indicador esté en el punto de mira 
y parpadee el indicador inferior, además 
de producirse el solapamiento de los 
disparos o misiles con el avión enemigo. 
Por la movilidad de los aviones puede 
cambiar la posición de disparo, debien- 
do buscarla nuevamente. 

Posición de disparo 

Estará indicada por un avión en la mirilla 
del control derecho y el parpadeo del in- 
dicador inferior, produciéndose cuando 
la altura de los perfiles sean aproxima- 



damente las mismas y el avión enemigo 
y el nuestro en la pantalla superior estén 
en la misma horizontal. 

Contador de disparos y misiles 

El primer indicador será un contador 
de disparos (diez como máximo). El se- 
gundo indicador será un contador de mi- 
siles (cinco como máximo) 

Si el contador está completo no se 
debe utilizar el arma específica del mis- 
mo ya que de lo contrario se autodestrui- 
rá el avión. Utilizar el otro arma, según 
sea: disparos o misiles. 



Niveles de dificultad 



El nivel A es el de mayor dificultad y el 
nivel d el de menor. 

El nivel de dificultad se realiza según 
la movilidad de los aviones enemigos, 
tanto en la pantalla superior como infe- 
rior. 



H i» 
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100 LOCATE 10,13:PRINT-Nivel D" 
110 LOCATE !0,16:PRINT"Salida 
120 LOCATE 10,20;PRINT B '. Elige opción" 
130 AC$MNKEY$ 

140 IF AC$="A" OR AC*="a" THEN LL^7:J0=6 
:P0=4¡jB0T0 200 

150 IF AC$ S "B B OR AC$= B b" THEN LL=B: JO-5 
:P0=5:G0T0 200 

160 IF AC$="C" OR ACS='c" THEN LL=9:J0=4 



:P0=6:G0T0 200 

170 IF AC$="D" OR AC$="d" THEN LL=10:JO 
3:P0=7i60T0 200 

180 IF AC*="S" OR AC$='s" THEN CLS:END 
190 60T0 130 

200 FOR 1=1 TO 500:NEXT:CLS 
210 OPEN "6RP: B ASM 
220 SCREEN 2,2,0 

230 REM ••Logotipo del prograw 



249 BRflll*bi75,8f54cl513ltt4írlldi«I2fd2lr 
2fdlt - 

2 C J PAIirr(65 t 73),í5 

260 DRAWbailí5,B0cl5uMr3ídMllfu!511Ml 

2 7 0 PA I NT (1!0, 7 5U5 

280 DPAW B b(nl80,801!5ii40rl5" 

2*0 DRAW"b«l 7 B,70i3u20r3 w 

300 CIFCLE(191,60) .20, 15.2?0t3. 1415°/180 

.14159/180,1.6 
310 C! C CLE'179, 60), 10, 15,270*3. 14159/180 

,9013,14159/181,1.6 

320 PAINT (180, 75) ,13 

330 CIPCLE(8!. 7 8), 2. 15,.. 1.4 

340 CIPCLE(145,73>,2.15,,,1.4 

350 CIRCIE(205, 7 8:\2,15.,,1.4 

360 ÜPAN'bffl47,100 B ;PRINT #1. "Caoitán Art 

hur Dunne" 

370 BRM'biBf, PRIMTIl, •Lugar: Corea 

i 

380 DPAH"bm29. M5" : PRINTtl . "Ti eaoo: Pri. 
avera de !°52." 
390 FOR 1=1 TO 2000:NEXT I 
400 PW B«0 TO 191 STEP 12;LINE<0.0)-(25 
!.B).4,BF:NEXT B 
(11 REM --Pantalla-- 

«20 C:RCLE!30.20). 10. 14,9013. 14159/180,3 
. :4l-=, : .í:CIF:CLEf30.120>. 10.14.3.1*159, 
2 7 0«3. 14!5°/:80. 1.4:CIRCLE<230.20! .10. 14 

M WI3.1415?/18í,i.*iCIRCLE(25l.í2l),l#, 
14.27113. 14159/ 181. 213. 14159, 1.4 

430 :!NE(30.10»-!230.10'.14:L!NE(30.130) 
-(230. 130). 14;LINE(23,20)-(23, 120), 14:11 

NEt237,26)-(237,128),14 
440 PAINT '130.701,14 

450 CIRCLEI25, 150) .5. 14.9013. 14159/181,3 

. 1*159. i.4:CIRCLE!24.1B8). 5.14,3. 14159,2 
mi. 14159/180. 1.4: CIRCLEÍ56. 156). 5, 14,, 

9013. 14159/180. 1.4:CIP.CLE(55, 180) .5, 14,2 
7613.14159/188.213. 14159.1. 4 
468 L!NE'20. 150!-'28, 188) . 14¡UNE!68. 158 

)-(68.188).14:LINE(25.145)-(55,145).14!L 
INE(25.185)-(55.185),14 

í?8 PAINT (48. 165!. 14 

488 tINE!168.145)-'180,158>,5,BF:LINE '1 

66,155)-(188.168),5,BF 

498 LINE<70, 140)-(150, 185) ,5,BF:LINE(70, 

184)-(150.!85),3,BF 

500 60SUB 2660 

518 DRAM "b.70,172xax»¡* 

528 CIRCLE(285, 158) ,5, 14.90.3. 14159/188, 

3. 14159, 1.4:CIRCLE(284, 188!, 5, 14, 3.14159 

,27813. 14159/188, 1 . 4: CIRCLE < 235. 158) .5. 1 

4,. 9613. 14159/188, 1.4:C!RCLE<235, 188), 5, 








14.27613.14159/188.213.14159,1.4 

530 LINE(200,150)-(200,179),14:LINE(285, 

145)-(235. 145) . 14:LINE(248, 158)-(240, 188 

).14!LINE(285,185)-(233,185),14 

548 PAINT (220. 165), 14 

550 DRAH"BH202. 16r:COLOR ?: PRINTt 1 , ■ - • - 



560 CIPCLEÍ220. 165) , 3. 9, , , 1 . 4 

m LINE(215.!50)-(225,150),9:LINE (215, 

160)-!225.168).9:LINE!215.176)-!225,178) 

,9:!.INE(215.188)-(225.180),9 

580 DRAtTb.25. 0" : PRINTI 1 . "Ti empo" : L INE ! 1 

81.0!-!238.5 1 . i; .Bf r :LINE(131.0)-(180,5),8 

,BF:LINE'80.0)-(130,5).6,BF 

5°0 DRAWBM39. 175C9S6UR3ULULU2RUR2UR3U2L 

2ULUL2ULU4LUL0LD4L0L2DLDL2D2R30R2DRD2LDL 

DR3":9AINT(40,168),9 

688 GOS'JB 2178 

618 FEM • -Definición de los sprites- • 

620 RE* ••Scrite de tu aviín- • 

630 B*=CHR$ (0) +CHR»(0)+CHR*í0> +CHRS ( 1 ) *C 

HPí!3)+CHR$(3)+CHR»CHCHR»U27) 

640 C$=CHP$'255!*CHR*!127>*CHPí(7}*CHRi( 

3) +CHRS !3) +CHPS ( 1 ) +CHR» !0) *CHR$ (0) 

658 D.=CHP. (8) *CHP. 1192) +CHP* ( 192) ♦CHPf ( 

192) +CHF* í 224) *CHR* (226) +CHRS (246) +CHRS ( 
25*' 

660 E$=CHFs(255 , *CHP*(254!+CHF:S(246)+*C u 
Rl (226) *CHRi (224) *CHR. ! 192KHR» 11921 *CH 
P«!192) 

670 SPPI T E«a)=B.*C*+D*+E* 

6B0 RE* "Avión enemigo ( Arriba )•• 

698 F$=CHR$ (0) +CHR$ (0) ♦CHR» (8) +CHP.(0) +C 

HRí(8>*CHR$(l)+CHR$(7)+CHRí!63) 

780 6í=CHRf (255) +CHR4 (63) +CHR$ (7) +CHR* I 1 

)+CHRt(0)+CHR$(0)*CHR*(0)+CHR$(6) 

710 H$=CHR$ (0) +CHR$ (112) +CHR./32) *CHP$ (9 

6) *CHR* (240) +CHR$ (228) +CHR. (236) +CHR» (25 

2) 

720 I $=CHR$ ! 254 ) +CHR* ( 252) +CHP$ ( 236 ) +CHF 
* (228) *CHR. (246) *CHR$ (96) +CHR» (32) *CHR. ( 
112! 

738 SPRITE» (2) =F6+G»*H**I$ 

748 REM "Avión enemigo ( Abajo )•• 

750 J*=CHP$ (0) ♦CHM (0) + CHP»(0)+CHR<!0) +C 

HR»(0)+CHR»(3)+CHR»(7)*CHR»<63) 

760 L»*CHP» (255) +CHR* I 63) +CHP»(7)+CHP»(3 

) *CHR» (0) +CHR» (0) *CHRt (0) +CHR» (0) 

770 M»=CHR» (0) *CHR» (0) +CHR» (240) *CHR* (96 
) +CHR»(240)+CHRí (228) +CHR» (236) +CHR. (252 
) 

788 N$=CHR$ ( 255) +CHR» ( 252) +CHR. ( 236) +CHR 
$ (228) +CHR» (246) *CHR$ (96) *CHR« (248) *CHR» 

(8) 



798 SPP1TE. (3) =J«*L*+M$+N$ 

888 REM • -Sprite de disparos-- 

818 0.=CHR* (0) +CHP. (0) *CHR« (0) +CHP. ( 0) +C 

HR»!5)*CHR»(0)+CHRt(0)+CHR»<0) 

828 P»*CHP»(224)*CHR»<0)*CHR*(6)*CHR*'0> 
♦CHR»(5)+CHR»(0)+CHR»(0)+CHR»!0) 

830 X»=CHR*(8)*CHR»<6)*CHR»(0)+CHP»(8J+C 
HR»(0KHR»(0)+CHR*(0>+CHR»(0) 

840 SPRITE$/4)=0*+P.*X.*X* 

850 REM • -Sprite de misiles- • 

860 T«=CHR* (0) ♦CHR* (8) *CHR< I 1 ) *CHR. ( 15) ♦ 

CHR$(1)*CHR*(0)*CHR*(0)+CHR$(0) 

870 U»=CHRI (0) +CHP$(0) *CHP< (0) +CHP$ (0) +C 

HR»m+CHR«{15>+CHR»'.i)*CHR«(6) 

880 SPRITE»(5)=T*HI»+X»*X» 

890 REM --Perfil avión nuestro-- 

900 V»=CHR»(0)*CHRÍ(0)*CHRt(0)*CHR»U5) + 

CHR. (12?) +CHR. (63) +CHR* (8) +CHR» (0) 

910 Y$=CHP$ (0) +CHP» (2)*CHR. (6) +CHP. 1 255) 

+CHR» !252> +CHR» (248) +CHR* (0) +CHR» (0) 

920 SPRITE» (6) :V»+X*+Y»+X» 

930 REM --Avión indicador de disparo-- 

940 W.=CHP«(2) +CHR.Í6) *CHR«(3) +CHR. ( 127) 

*CHR« (9) +CHP. (0) *CHR* (0) +CHR. (0) 

958 2.=CHP* ( 64) +CHP» ( 961+CHR. (192) +CHR. ( 

254>+CHR» ( 1441+CHR» (0> *CHR» !0> +CHR» 18) 

966 SPRITE*(7)*W.+X«+Z$+X. 

07 8 REM • -Perfil avión enemigo-- 

980 A1*=CHP$ (0) +CHR. ( 0) +CHR. (0) +CHR.( 15) 
*CHR« (63) +CHR* (0) *CHR. (0) +CHR. (0) 
998 B 1 .=CHR« ' 2 ) *CHR* ' 6 ) +CHR. < 1 4 ) +CHR. ( 25 
5) +CHR» (254) +CHR. (252* +CHR. (0) *CHR* (0) 
1088 SPPITE*(8)=A1.+X.*B1**X. 
1010 REM • -Sprite avión nodriza- • 
1828 D1*=CHR. (0) +CHP. (0) *CHR. (0) +CHR. ( 1 ) 
*CHR» ( 1 ) +CHR* (3) +CHR* (127) +CHR. (255) 
1030 E1< S CHR<<255)+CHP» (127) +CHR<(3) +CHR 
$ ! 1 ! +CHR. ! 1 ) +CHR. (0) +CHR. (0) +CHR.(0) 
1648 Fl.=CHP.(48)*CHRt (112) +CHRK224) *CH 
R$ (240) +CHR. (224) +CHR$ (247) +CHRS (258) +CH 

R$(255) 

1050 G l.=CHP* (255) +CHR. (250) +CHR. (247) +C 
HRl ( 224 ) +CHRS (240) +CHR. (224) +CHR. ( 1 1 2) +C 
HR»(4B! 

1060 SPRITE«(0> =D1.+E1.+F1.+G1. 
1070 REM --Perfil avión nodriza- • 

1080 H1$=CHR$(0)+CHR$(0)+CHR$(0)+CHR*(0) 
♦CHR<(31> *CHR* ( 127) +CHR. (255) *CHR* (63) 
1698 I 1$=CHR. (0) +CHR. (2) +CHR. (2) +CHR* ( 2) 
♦CHR. (255) +CHR. (254) +CHR. (224) +CHR$ (192) 
1180 SPPITE.(9)=H1.+X.+I1.+X. 
1110 REM --Sorite antiaéreo-- 
1120 Jl .=CHR. ( 24 ) +CHR* < 46 ) +CHR. ( 1 27 ) *CHR 
$ (247) +CHR. ( 126) +CHR* (44) +CHR. (16)+CHR. ( 





0) 

1130 SPRITE$(10)=J1$ 
1140 ROI "Sprite tronco árbol 
1 150 L 1 $=CHR$ (0) +CHR» (0) *CHP$ ( 0) ♦CHRI (0) 
*CHR$ (0) +CHRS (0) +CHRS (24 ) +CHR« (60) 
1160 SPRITE*(ll)=Ll$ 

1170 REM "Sprite copa árbol" 

1180 M1$=CHR*(0)+CHR$!0)+CHR$(0)+CHR*(60 
I +CHR$ ( 126) +CHR$ ! 126) +CHRS (62! +CHR* (24) 
1190 SPRITE$'12)=M1$ 

1200 REM --Sprite montana-- 
121 0 P 1 *=CHR$ (0)+CHR$(8)+CHR$(28) +CHR* ! 2 

8)+CHR$(62)+CHR$!62>+CHR*!127)+CHR*(255) 
1220 SPRITE$(15)=P1* 

1230 REM • -Juego- • 

1240 X=190: Y=60:Y1=35: Y2=B5:X3=121: X4=74 
.34;X8=25¡)(ll*70.5:Al=INT(RND(l)t2000>*l 
500 : A2=2700+ 1 NT ( RND ( 1 ) 1 1 500 ) : N 1 = 1 : N2=0 : C [ 
OH«230:CT*68:BT*68:KL*B | 
1250 FOR 1=220 TO 1?0 STEP -«tiltil SPPIT 
E l.(I.Y).5.1:NEXT I 

1260 FOR X3=135 TQ 121 STEP -.1:PUT SPRI 
TE 6.(X3.185-A1/100).15.6:NEXT X3 
1270 FOR 1=25 TO 75 STEP .lililí SPRITE 2 
,(I.35).5.2:IF I>=60 THEN PUT SPRITE 3, ( 
1-35. 85). 5. 3 
1280 NEXT I 

1290 FOP X4=70.5 TO 74.54 STEP . 05 : PUT S 
PRITE 8.(X4.185-A2/100).15,8:NEXT X4 
1300 GOSUB 2060 
1310 Y3=185-A1/100 
1320 Y4=185-A2/100 
1330 AB=INT(RND(1)ILL>+1 
1340 IF AB=l THEN A2=A2*50 
1350 IF AB=2 THEN A2=A2-50 
1360 CT«CT+1 
1370 IF IM THEN 1410 

1380 SOUND 6,31 
1390 SOUND 7.240 
1400 SOUND 8.8 
1410 IT«i 

1420 REM --Instrucciones para teclas 1,2 
,3,4" 

1430 C1*=INKEY$ 

1440 IF CN>=1 OR Y3>167 THEN 1490 
1450 IF Nl<>2 AND Cl$="3" THEN NM=NM+1:I 
F NM*11 THEN SPRITE OFFiGOTO 2480 ELSE L 
INE(180,145)-<180-2tNM,150),l,BF 
1460 IF N1O0 AND Cl$="4" THEN NN=NN+1: 1 
F NN=6 THEN SPRITE OFF:6OT0 2480 ELSE LI 
NE(180.155)-(180-4»NN,160),15,BF 
1470 IF Nl=2 THEN 1480 ELSE IF Cl*="3" 0 
R N1=0 THEN GOSUB 1900: 60T0 1510 
1480 IF Cls«"4" OR Nl=2 THEN GOSUB 1960: 



GOTO 1510 

1490 IF Cl$="l" THEN Al=Al+25 
1500 IF Cl«="2" THEN Al=Al-25 
1510 IF X5(40 OR X6<30 THEN N1=1:N=0:PUT 
SPRITE 4,(0.0),0,4:PUT SPRITE 5,(100.0) 
,0.5 

1520 REM --Posición de disparo-- 
1530 IF ABS(A1-A2)<=50 AND ABSIY-Y1X5 O 
R ABS(A1-A2)<=50 AND ABS(Y-Y2)<5 THEN PU 
T SPRITE 7.(212,162).!J:LINE(160.175)-( 
180.180).7.BF:ON SPRITE GOSUB 2010:SPRIT 
E ON ELSE PUT SPRITE 7, (212. 162) ,0.7:SPR 
ITE OFF 

1540 GOSUB 2170 
1550 GOSUB 2320 

1560 IF N3=3 AND N4=4 THEN KO=KO+l:CN*l 

1570 IF KO>=10 THEN GOSUB 2080 

1580 IF KO=l THEN GOSUB 2550 

1590 C0M=C0M-.5 

1600 LINE(230.0)-(COM.5).4.BF 

1610 IF COM<=80 THEN SPRITE OFF: JQ=1:50S 

UB 2230 

1620 IF COM<130 THEN LINE(160. 165)-<180, 
170),15,BF 

1630 REM --Parámetros- 
1640 IF Yl<!7 THEN Y1M7 

1650 IF CV=1 THEN Y!=200 ELSE IF YD100 
THEN Yl*100 

1660 IF Y2<17 THEN Y2=17 

1670 IF CB=1 THEN Y2=200 ELSE IF Y2M00 

THEN Y2»100 

\m \? mu thín um 

1690 IF X<170 THEN X=170 

1700 IF Y<15 THEN Y=15 

1710 IF Y>110 THEN Y=110 

1720 IF Y3M67 THEN PUT SPRITE 1.(400.0) 

,0,1 ELSE PUT SPRITE 1,(X,Y),5,1 

1730 IF X3M33.34 THEN X3M33.54 

1740 IF X3<116.82 THEN X3=116.82 

1 7 50 IF Y4>167 THEN Y4M67 

1760 IF Y4<140 THEN Y4=140 

P70 PUT SPRITE 6,(X3,Y3),15,6 

1780 IF CN=0 THEN PUT SPRITE 8,(X4,Y4),1 

5,8 

1790 IF Nl=l THEN D=STICK(0) ELSE GOTO 1 
310 

1800 REM --Movimiento de nuestro avión- • 
1810 IF D=0 THEN X=X+1:X3=X3+.3636:G0T0 
1310 

1820 IF D=l THEN X-X-l: X3=X3-.3636:G0T0 
1310 

1830 IF D=2 THEN X=X-1:X3=X3-.3636:Y=Y-1 
:60T0 1310 

1840 IF D=3 THEN 1310 



1B50 IF D=4 THEN ¡f=X+l : X3=X3+. 3636: v=Y-l 
¡GOTO 1310 

1860 IF D=5 THEN X=X+ 1 : X3=X3+ . 3636 : GOTO 
1310 

1870 IF D=6 THEN X=X+ 1 : X3=X3* . 3636: Y=Y* i 
: GOTO 1310 

1880 IF D=7 THEN 1310 

1890 !F D=8 THEN X=X-1: X3=X3- . 3636: Y=Y+1 

:60TO 1310 

¡900 REM --Disparos-- 

1910 N1=0:N=N+15:X5=X-N:Y5=Y:POT SPRITE 

4.!X5.Y5),1,4 

1920 LINE(30.180)-(40.183).1.BF 
1930 X6=50 

1940 IF Cl*="3" THEN FOR C=l TO 4:GOSUB 
2060:SOUND 6.0:SOUND 7,7:S0UND 9.15-.S0UN 
D 11,17:S0UND 12,17:S0UND 13.10:NEXT C:G 
OSUB 2060 
1950 RETURN 

1960 IF Cls*"4" THEN GOSUB 2060:SOUND 7. 
60:SOUND 8.14.-F0R 1=100 TO 50 STEP -1:80 
UND 0,I:NEXT I : SOUND 7,60:SOUND 8.14:60S 
UB 2060 

1970 REM "Misiles- 

1980 N1=2:N=N+9:X6=X-N:Y6=Y:PUT SPRITE 5 
,(X6,Y6).1,5 

1990 LINE(40.180)-!50.183),15,BF 
2000 X5 S 50: RETURN 
2010 GOSUB 2450 

2020 IF N1=0 THEN X7=X5:Y7=Y5+B ELSE IF 
Nl=2 THEN X7=X6+8:Y7=Y6+8 
2150 MitlIMlPill i«ITI i, (MiD.f.ItlU 
T SPRITE 5,(200,0).0.5:GOSUB 2720 
2040 IF X7<65 THEN N3=3 ELSE N4=4 
2050 RETURN 

2060 FOR I7.=0 TO 13:S0UND I7..0:NEXT 17. 
2070 RETURN 

2080 PEM --Aleatorios para antiaéreo- • 

2090 BX=INT(RND(l)ll90)+30 

2100 BY=INT(RND(l)tl00)+l5 

2110 REM "Movimiento del avión nodriza- 

2120 IF AB=)PO THEN PUT SPRITE 10. (BX.BY 
),1,10:ON SPRITE GOSUB 2200: SPRITE ON:GO 
SUB 2450: IT=1 ELSE SPPITE OFF 
2130 IF X8>=145 THEN X8=145: XV=XV+1 ELSE 
X8=X8+2:X11=X11+.45:PUT SPPITE 0,(X8,60 
),5,0:PUT SPRITE 9, (X11,Y4-5),13,9 
2140 IF XV=1 THEN FOR 1=160 TO 169 STEP 
.3:LINE(160,68)-(I,68).1:NEXT I:LINE(X11 
♦9,Y4+3)-(Xll+20,Y4*3),l:LINE(169,67)-(l 
69.69),1,BF 

2150 IF P0INT(X,Y+9)=1 AND POINT (X3.Y3 
♦5)=1 THEN 2590 





2160 RETURN 

2170 U»E<30,180)-'.5Í,183>,9,BF 
i:30 LINE llM,165)-tl8l,l7l),5.BFtLINE 
llW.i75)-«IBt.l80),3.BF 
RfTURK 

21'.' ! c BK165 * y EN PUT 3PP1TE [9. (*Sf,f 
> , 0 , lf : X?=8X>4! Y7»BY*4: BOSUB 2720: 5C T 0 2 

m 

:::? x7*x*9:Y7*y*b:&osub 
fj: sprite ie,<450,0M.ii 

2240 K»X*.4«.XM3M*!4:Y:= >.:5 
225Í SO'JND 6.7!:S0UND 7 .240 :KL»KL-.25:IF 
KL «0 T,J EN H«í 
:2:0 BOUM) B,*L 

22 , 0 IF Y3>167 T HEN FL' T S-"*E 1.(400.0! 

.0.: ELSE P'J T SPRITE l.«X,Y),5j 

2236 C "J T : f: : T E b,(X3,Y3»,15,6jPU7 

E -. ; : 7 í.0í.-?.;:'L , T SPRITE 5, (3#f,i).0,5 

2290 ! f X>216 T HEN Xs'li 

:: IF X! 133.54 TU EN XM33.54 

27 i 2 S E M •(ttovieianto aviles KWligoS" 

MNTtRWMiMi+l 

2":? If K Tíffil y*t»Yl+39 

::«? !* then ywwo 
2: r -: ; r thes v := v :*: r j 

2348 !«4 T HEN Y2*y2-Í0 

237Í !F HíIM DF v 7 177 THEN 2^30 

::?? : c n¿=4 t hen put s^ite 2. (75. 01.0. 

2:CV»1 ELSE PU7 5PPITE 2, Í75,YI> ,5,2 
i: 9 0 IF N7*7 THEN PL'T SRR!" 7. (25.0). 0, 
J:CB»1 ELSE PB7 SRF ITE 3. (41, Y2) ,1,3 

Jéff :f et-m; ? «fn RUT IRRíti M.Miía, 
bi.b.iíjRUT sprite 12. '1:00.0). 0.1: else 

t ,, T eppTTE 11. (CT. 175). 9. II» RUT SRRHE 



12, (CT, 173. 5), 2, 12 

2410 IF CTM95 THEN PL' T SPRITE 15.(2000, 

I),#,15jCT«48 ELSE IF CT)123 THEN PUT SF 

: 1TE 15, (CT-53, 176) ,3. 13 

2420 IF COH<*80 OP PT«1 THEN CT»CT*.5i6D 

T C 22*0 

2430 RETURN 

2440 FEtí ••Puido de ixelosién» 

2450 BOSUB 2060¡SOUND 6.0:SOUND 7.7:S0UN 

D 8.16:S0UND <U6:S0UNÜ 10.16:SOUND 12.5 

6 : SOÜND 13,0 

2*40 C ET'J*N 

2*70 PE* ••Rutina de eyalosiJn-- 

2480 BOSUB 2450: XI0=X3*8:Y10=Y3+6:CIRCLE 

(X!0.Y!0).9,B....4:CIRCLE(X10.Y1#),6.!., 

,.6:CIRCLE!X!0.Y10 l -.7.1...1.4:CIRC!.E()!10 

,Y1#),M„1 

24"0 CIRELE{ll#,Yl#),2 l 8,,l:CIRCLE(Xlf,Y 
10), 3, 3. ,,.5 

2500 X7«X+8jY7«Y*8í60SU9 2720 
2510 PUT SPRITE 1. (325, 0) , 0. 1 : PUT SPRITE 
6. '350.0). 0.6 

2520 IF BX>«165 T HEN DFAM"BH80. 30" ¡COLOR 
l:PF!NTtl." 6 ur.tes:':INT!COHii00):FOR I» 
1 TC 7000: NE» T I:EOSUB 2060: P'JN 

30 CRflW"b«80.100":COLOR l:RRINTM."Pun 
tos: 0":FOR I«l TQ 3000: NEXT I:G0SUB 20 
Ó0:FUN 

2540 REM ••Putina de e/plosion*. 

2550 X9«X4*eiY9«r4+8»ClR(XEtW,Y9) > 9,8, J 

, .4:CIPCLE(X?. Y?) ,4. !, . , .8:CIPCLE<X?,Y91 

,6. 1, . . 1.4:CIRCLE(X?. Y?) . 4 . 8 . , , 1 . 4 : C ! RCL 

E(X 0 .Y?!.6.8...!::!FCLE!XO.Y9),5.!,...5: 

RUT SPRITE 8. (375,0), 0,8 

2560 LINE!X9-9,Y9-6)-(X9+9,Y9+6\5,BF 





2570 GOTO 2670 

2580 PEH • -Llenado de combustible 
"'90 RUT SPRITE 10, (0,600), 0.10 



- - 



• I 



230 STER .5:LINE(181.e 



2600 SOUND 6.31:S0UND 7.240:SOUND 8.3 
2610 FOP A*80 TO 130 STEP . 5 : LINE ( 80. 0) - 
(A,5),0,BF:5BSUB 240iiCT»CT*.25tNEXT A 

2620 LINE(160.165)-(180,! 7 0!.5,BF 
2630 FOP B«131 TO 130 STEP ,S:LINE(131,I 
)-(E.5' ,S.BF:50SUB 2400: ET¿CT+.25: HEXT B 
2640 FOR C=181 TO 
)-(C.5),6.BF:G0SUB 24W:CT»CT*.25lKEIT C 
2650 DRArb«i80.100":COLOP líPRINTtl, "Par 
tos:":INT(CO«t250):FOR 1=1 TO 3000:NEXT 
I:50SUB 2060: P'JN 

2660 ftXI*'cl4s4f3u2r3tlr2fIr2u2r2f2r3(í2r 
2«2r2f2tttr3f2r3t2ulr3f2r2tlr3i2r2f2r3ilr 

3flr3'jlr2f2'!elfl" 
2670 ORAN 17!xul: ' 
2680 DRAH -b(B70, 172xas$: " 
2690 RETURN 

700 IF 8)01 THEN DRAH"BN80,30":CQLOF 1: 
PRINTIl."Funtos:":INT(COí'«100 í !FOP !*1 T 
O 3000:NEXT I ¡ BOSUB 2060:RUN 
2 7 10 REI "Rutina de exol esi 6n • • 
2720 CIRClE(X?.Y?\;.l.,.i.4:CimE f X-.Y 
7) l lf,l n ,.5:CÍRCLEa7 l Y7),7,8, l ,1.4:ClR 
CLE(y , ,Y7i,9,l...l:CIPCLE'X7.Y71.8.1.,.l 
2730 CIRCLEU 7 .Y 7 ),8,1,,,1.2:C!RCLE¡Í7,Y 
7: .°. 1. , . 1:CIPCLE(X?.Y7> .6. 1, . , 1.4:CIPCL 
Ea7.vn,e,8.,,1.3:C!RCLE(X7,Y 7 >,2.8,,,l 

.3lCI8aEU7,Y7) l 3,8 m l.l 

2 7 40 LINE(P-10.Y 7 +!0)-(X7*!0,Y7-10),14, 

BF 

2 7 50 RETURN 



L 
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TEST DE LISTADO 
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10 


- 0 


180 


- 50 


330 


-241 


320 


-160 


690 


-237 


360 


-197 


1030 


- 87 


1200 


- 0 


1370 


-152 


1340 


- 29 


1710 


-239 


20 


- 80 


190 


- 25 


360 


-216 


530 


- 53 


700 


-235 


870 


-198 


1040 


- 9 


1210 


- I 7 


1380 


- 53 


1550 


-190 


1720 


- 68 


30 


-21° 


200 


- 7 6 


3 7 0 


-140 


540 


- 36 


710 


- ¿0 


880 


-253 


1050 


- 10 


1220 


-238 


1390 


- 7 


1560 


- 97 


1730 


- 40 


40 


-!9 7 


210 


-224 


780 


-136 


550 


- 76 




- 37 


890 


- 0 


1060 


-121 


1230 


- 0 


1400 


- 34 


1570 


-132 


! 7 40 


- 12 


50 


- 34 


120 


- 84 


390 


-138 


560 


- 84 


730 


-191 


«00 


-127 


1070 


- 0 


1240 


-246 


1410 


-157 


1590 


-154 


1750 


-200 




- 0 


230 


- 0 


400 


-157 


570 


- 42 


7 40 


- 0 


910 


-168 


1080 


-175 


1230 


-134 


1420 


- 0 


1590 


- 76 


1760 


-148 


"0 


-128 


2<0 


-176 


410 


- 0 


580 


- 78 


750 


-243 


°20 


- 4 


1090 


-119 


1260 


- 46 


1430 


-115 


1600 


-139 


1770 


-Líí 


80 


-132 


250 


- 49 


420 


-114 


590 


-129 


760 


-242 


930 


- 0 


1100 


- 7 5 


1270 


- 94 


1440 


-241 


1610 


-153 


1780 


-21E 


90 


-134 


260 


-109 


430 


-110 


600 


- 29 


770 


-175 


OÍ0 


- 74 


1110 


- 0 


1280 


-204 


1450 


- 54 


1620 


- 61 


1790 


-!7í 


100 


-138 


270 


- 93 


440 


-107 


610 


- 0 


780 


-173 


950 


-160 


1120 


- 69 


1290 


- 29 


1460 


- 88 


1630 


- 0 


1900 


- 0 


110 


-236 


280 


-129 


450 


-236 


620 


- 0 


790 


-T1 I 


960 


- 7 


1130 


-227 


1300 


-175 


1470 


- 63 


1640 


-152 


1910 


- 68 


120 


-233 


290 


- 31 


460 


-150 


630 


- 47 


800 


- 0 


970 


- 0 


1140 


- 0 


1310 


- 14 


1480 


-226 


1650 


-102 


1920 


- 71 


130 


-131 


300 


- 19 


470 


-112 


640 


- 45 


810 


-132 


980 


- 30 


1150 


- 47 


1320 


- 16 


1490 


- 77 


1660 


-154 


1830 


- 72 


140 


-162 


310 


- 7 


480 


-222 


650 


-142 


820 


-149 


990 


-220 


1160 


-230 


1330 


-191 


1500 


- 79 


1670 


- 95 


1940 


-221 


150 


-165 


320 


-163 


490 


- 64 


660 


-125 


830 


-186 


1000 


- 60 


1170 


- 0 


1340 


-240 


1510 


- 75 


1690 


-192 


1850 


- 72 


160 


-168 


330 


-121 


500 


- 9 


670 


-174 


840 


-242 


1010 


- 0 


1180 


-100 


1330 


-242 


1520 


- 0 


1690 


-102 






170 


-169 


340 


-181 


510 


-174 


680 


- 0 


850 


- 0 


1020 


• 86 


1190 


-232 


1360 


- 32 


1530 


- 21 


1700 


- 50 


(sigue) 














































TEST DE LISTADO 




1860 


- 73 


1950 


-142 


2040 


- 25 


2130 


- 55 


2220 


- «0 


2310 


- 0 


2400 


- 44 


2490 


- 56 


2580 


- 0 


1870 


- 74 


1960 


-193 


2050 


-142 


2140 


-119 


2230 


-174 


2320 


- 19 


2410 


- 65 


2500 


-127 


25"0 


- 6° 


1880 


-225 


1970 


- 0 


2060 


-185 


2150 


- 65 


2240 


- 45 


2330 


- 77 


2420 


-217 


2510 


-163 


2600 


-210 


1890 


- '8 


1980 


-193 


2070 


-142 


2160 


-142 


2250 


- 65 


2340 


- '9 


20 


-142 


2520 


- 26 


2610 


- 4 


1900 


- i 


1990 


-154 


2080 


- 0 


2170 


-13"» 


2260 


-160 


2350 


- 81 


2440 


- 0 


2530 


-211 


2620 


-112 


1910 


-189 


2000 


-133 


20"0 


.- 38 


2180 


- 46 


2270 


- 68 


2360 


- 83 


2450 


-10! 


2540 


- 0 


267? 


-106 


1920 


-122 


2010 


- 54 


2100 


-1°0 


2i°e 


-142 


2280 


- 91 


2370 


-116 


2<60 


-142 


2550 


-1 7 0 


2640 


-207 


1930 


-WI 


2020 


-105 


2110 


- 0 


2200 


- 54 


22"0 


-192 


2380 


- 82 


2470 


- 0 


2560 


.ncc 


2650 


-142 




- 31 


2030 


-163 


2120 


-148 


2210 


-23? 


2300 


- 40 


2390 


-236 


2480 


-181 


25-0 


- 15 


2660 


-222 



2670 
2680 
26°0 
2700 
2710 
2720 
2"0 



-173 

-174 




-137 
- 0 
-206 

-207 



2740 - 0 



TOTAL: 
2°977 




REGALATE Y DISFRUTA DE 11 LIBRO 

VITAL PARA EL USUARIO DE 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



> W IFR GUERRERO 



JUAN CARI OS GONZALEZ 



Y ADEMAS PROGRAMAS 
DE EJEMPLO 



9*jur mi veleidad dt fjccución 

componer música a una, dos o tres voces 
organizar tus propios programas de gestión.... 

LOS SECRETOS DEL 




Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Póker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. Importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

Importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 



"i 






AUMENTO DE PRECIO 
DE Lá8 MEMORIAS 

Los americanos están negros 

Los precios de los «chips» de memo- 
ria han aumentado considerable- 
mente en el mercado americano en 
los cuatro últimos meses como conse- 



cuencia de un acuerdo suscrito entre los 
Estados Unidos y el Japón, que obligaba a 
este último país a una política de precios 
mínimos en los Estados Unidos. Todo ello, 
ha provocado ya airadas protestas de los 
fabricantes de ordenadores americanos 
que se quejan de un alza de precios que en- 
carece considerablemente los equipos ter- 
minados. Tranquilos, los ordenadores 
MSX son Japoneses. 



HBI-232: CARTUCHO DE 
INTERFAZ RS-S3SC 



Reedición del cartucho de 

am plia ción 

Este cartucho de comunicaciones de 
SONY permite conectar el HIT BIT 
o cualquier otro MSX con cual- 
quier ordenador equipado con RS-232C, 
bien haciéndolo por vía telefónica me- 
diante un MODEM o acoplador acústico o 
bien directamente utilizando un cable de 

extensión. 

Para ello va equipado con un conmuta- 
dor TO MODEM/ TOTERMINAL, lo que evi- 
ta el engorroso cambio de conexiones del 
cable Permite conectar directamente al 
modem o acoplador en TO MODEM y direc- 
tamente a ordenador o a cualquier otro pe- 
riférico equipado con RS-232C en TO TER- 
MINAL 

de ello extiende el BASIC MSX 

_ tar la creación de software de 

comunicaciones. Su precio es de 22.00C 
otas, mas IVA. 



Wm 



Añlclonalmente, 80NY ha vuelto a «w- 
m^^aTTos cartuchos de ampUactón 
de memoria HBM 64 para .ampliar Oa > me- 
moría de los ordenadores de LB£ Para . *m 
los usuarios vean que se acuerdan de ellos 
Vale 17.500 + IVA. 




DURANTE EL PASADO 
AÑO ESPAÑA GASTO 

390.000.000.000 de ptas. 

EN INFORMATICA 

Según documento editado por la 
DOBI 

Durante el año 1985, España gastó 
390.000 millones de pesetas en 
equipos y servicios informáticos 
mientras que la producción nacional se si- 
tuó en los 103.000 millones de pesetas, se- 
gún el documento elaborado por la Direc- 
ción General de Electrónica e Informática. 

El consumo Informático alcanzó los 
312.000 millones de pesetas mientras que 
en consumo de software se registró un 
gasto de 75.000 millones. Estas dos cifras 
totalizan el volumen de gasto informático 
español durante el pasado año, lo que su- 
pone un cuantioso incremento con res- 
pecto al ejercicio anterior. 




IBM LANZA AL 

MERCADO NUEVA 
VERSION DEL PC/XT 

Llevará incorporado lector de 
diskettes de 3'8" 

IBM España ha lanzado al mercado su 
nuevo ordenador de la gama PC. Se 
trata del PC/ XT286, el más potente 
de la familia por el momento. Este aparato 
Incorpora un microprocesador INTEL 
80286 de 16 bits con una frecuencia de re- 
loj de 6MHz, lo que le permite operar a una 
velocidad tres veces mayor que los ante- 
riores modelos de la misma gama. 

A partir del mes de noviembre, IBM 
pondrá a disposición de los usuarios nue- 
vos productos que aumentarán las presta- 
ciones del ordenador mencionado, entre 
los que cabe destacar la presentación de la 
nueva (para IBM) unidad de dlskette de 
3'6", que como todos sabemos es el forma- 
to standard de la norma MSX. Es Intere- 
sante ver que los gigantes de la informáti- 
ca adoptan los periféricos MSX, puesto 
que esto nos da la medida de la alta calidad 
que está desarrollando la norma. 
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• ALANCE 



LOGO: INTRODUCCION Y 



APLICACIONES 

Nuevo libro de Ed. Noray 

Este libro, que versa sobre el didácti- 
co lenguaje LOGO no exige ningún 
conocimiento previo de Informáti- 
ca. Trata de pasar revista a los diversos as- 
pectos de LOGO a través de las siguientes 
partes en que está dividido: 
Programar el LOGO, descripción gene- 
ral del lenguaje enfatizando especial- 
mente los problemas de sintaxis y los 
modelos de representación. 



Manual de referencia de LOGO. Repre- 
sentación exhaustiva de palabras y 
principios. 

Una experiencia pedagógica. Realizada 
con los niños de una escuela. 
En suma, un excelente libro para quie- 
nes deseen introducirse en el lenguaje. 



MEMORIA SIEMENS DE 
1 MILLON DE BITS 

Un nuevo paso en el tratamiento 
de los semiconductores 



El grupo alemán SIEMENS ha co- 
menzado a distribuir prototipos de 
_ memoria RAM dinámica de un mi- 
llón de bits ( 1 Mb). La tecnología utilizada 
para la producción del chip es la MOS de 
una miera, lo que viene a significar que los 
motivos geométricos de los circuitos que 
lo integran tienen una precisión de milé- 
sima de milímetro. 

La primera presentación pública de este 
prototipo tendrá lugar durante el trans- 
curso de este mes de noviembre durante la 
celebración del certamen de Electrónica 
de Munich, que reúne a los más importan- 
tes fabricantes mundiales de semiconduc- 
tores. 

Esto convierte a SIEMENS en la prime- 
ra compañía europea en disponer de una 
memoria de 1 Mb, cuyas entregas ya han 
comenzado por parte de empresas Japone- 
sas como NEC y TOSHIBA qe se adelanta- 
rán unos meses a SIEMENS y a los fabri- 
cantes del Silicon Valley . 

SIEMENS ha elaborado este revolucio- 
nario componente en el marco del Mega- 
project -financiado por los gobiernos ale- 
mán y holandés- asociada a PHILIPS. 



cuenta 




TOTACES 




PULSE RETURN ■ 



CONTABILIDAD 1800 de 
SONY 

Adaptada al nuevo Flan Contable 

IVESON SOFTWARE ha desarrollado 
para SONY España la aplicación CON- 
TABILIDAD 1600, que forma parte de 
un Paquete Integrado de gestión dirigido a 
la pequeña y mediana empresa. 

La numeración de cuentas es Ubre y se 
adapta al Plan General Contable, por lo 
que los listados obtenidos pueden presen- 
tarse directamente al Ministerio de Ha- 
cienda. 

Este excelente programa puede mante- 
ner cuentas de libro mayor de hasta 3 dí- 
gitos y cuentas de libros auxiliares de 
hasta 6. 

El módulo contiene un diskette con la 
aplicación capaz de manejar hasta 1500 
cuentas y 6000 apuntes contables. 

El programa viene acompañado por un 
claro manual de usuario con una Intro- 
ducción a la Contabilidad y una explica- 
ción completa de las características gene- 
rales. Su precio es de 10.900 ptas. Como 
puede verse, MSX sirve para algo más que 
para Jugar. 





GOPY 



SERIE ORO DE MANHATTAN 




Con Hard Copy iniciamos lo que hemos dado en llamar 
Serie Oro. A partir del próximo mes ya estará disponi- 
ble el primero de los cassettes de aplicación. Con Hard 
Copy, desarrollado totalmente en Código Máquina, el 
usuario podrá realizar copias en tres formatos diferen- 
tes, hacer simulación en blanco y negro de los colores 
por degradación de grises, copiar sprites, grabar o 
cargar pantallas en cinta, copiar en inverso, redefinir 
tonos de colores, etc. Además dispondrá de menús 
por ventanas y controlar el Hard mediante cursores o 
joysticks. Y lo que es más importante es que es com- 
patible con cualquier tipo de impresora. 



Co .*Pati¿? e a "*f ( f cojera. 
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INICIACION AL LENGUAJE MAQUINA 




POR 

J.C. GONZALEZ 




SIMBOLOS UTILIZADOS: 



n: 



nn: 



e 



c: 



xóy 



número de ocho bits, comprendi- 
do entre &H00 y &HFF. 
número de dieciséis bits, com- 
prendido entre &H0000 y 
&HFFFF. 

número de ocho bits, comprendi- 
do entre &H00 y &HFF, interpreta- 
da por la instrucción en comple- 
mento a dos (con signo), 
condición. Tipos: 
C: si el flag C ha tomado valor 1 
NC: si el flag C ha tomado valor 0 
Z: si el flag Z ha tomado valor 1 
NZ: si el flag Z ha tomado valor 0 
PE : si el flag P/V ha tomado valor 1 
PO : si el flag P/V ha tomado valor 0 
M: si el flag S ha tomado valor 1 
P: si el flag S ha tomado valor 0 
variables representativas del 
mnemónico, cuyo significado se 
especificará en cada caso. 



viéndose mediante un RET al programa prin- 
cipal o al intérprete BASIC. 
CALL c,nn: tiene idéntico funcionamiento 
que CALL nn, pero ejecutándose solamente 
si se cumple la condición «c». 
CCF: es un complemento del flag CARRY, 
colocándolo a cero si tiene el valor uno y a la 
inversa. 

CP x: realiza la comparación de A con «x» y 
en función del resultado posiciona a todos los 
flags. «x» podrá ser (HL),(IX+d),(IY+d), 
A,B,C,D,E,H,L ó n. Su modo de actuar es: 
A-«X», sin almacenar el resultado. Afecta a 
las posteriores instrucciones condicionales. 
CPD: compendia en sí las funciones de 
CP(HL), DEC HL, y DEC BC. Cuando A= (HL) 
el flaa Z toma el valor cero. Cuando BC=0 el 
flag P/V tomará el valor 0. JP PE nn después 
de CPD saltará solamente cuando BC sea 



distinto de cero, y JP PO nn saltará cuando 
BC sea igual a cero. 

CPDR: realiza las funciones de CPD pero 
con repetición, es decir, se va repitiendo has- 
ta que A=(HL) y por lo tanto Z=0 ó bien 
BC=0yel flag P/V=0. 
CPIR: Al igual que CPDR, pero incrementan- 
do HL 

CPI: Al igual que CPD pero incrementando 
HL 

CPLs es un complemento del registro A, cuya 
función estriba en convertir cada uno en cero 
y viceversa, sin afectar a los flags. 
DAA: el resultado de una suma o resta es 
ajustado para darle significación en código 
decimal. Asimismo interpreta los sumandos 
en decimal. 

DEC x: el valor de «x» es decrementado en 
uno y vuelto a almacenar en «x». «x» puede 



ADC x f y: Suma el contenido de «x» más el 
de «y» guardando el resultado en «x», y le 
suma el flag C (carry). Si «x» es A «y» puede 
ser A,B,C,D,E,H,L,(HL),ÍIX+d), (IY+d), ó n. 
Si «x» es HL «y» será BÓ.DE.SP, ó HL. 

x,y: Suma el contenido de «x» más el 



de «y» guardando el resultado en «x». Si «x» 



«y» podrá ser A,B,C,D,E,H,L,(HL), 
(IX+d),(ÍY+d) ó n. Si «x» es HL «y» podría 
ser SP.DE.BC, ó HL. Cuando *x» es IX ó IY 
«y» será BC,DE,SP ó IX. 
AND x: Empleo del término «Y» según las 
reglas de la lógica, bit a bit, entre A y «x» al- 
macenando el resultado en A. Los flags toma- 
rán valor en función del resultado. 
BIT b,x: «b» corresponde al número del bit 
que se encuentra en el «x» que se explora, 
«x» puede ser A,B,C,D,E,H,L,(HL),(IX+d), 
(IY+d). El BIT b,x se copia en el flag Z, lo que 
permite instrucciones condicionales posterio- 
res. 

CALL nn: siendo «nn» la dirección de me- 
moria a la cual salta el programa, tratándose 
luego como una subrutina. La dirección de la 
instrucción de retomo de la subrutina se al- 
macena en la pila stack. Al final la subrutina 




ser A,B,C,D,E,H,L,HL,BC,DE,IX,IY,SP f (HL), 
(IX+d),(IY+d). Los flags sólo se alteran 
cuando se trábaja con registros aislados, 
pero no con pares de registros. El flag CA- 
RRY no se ve afectado en ningún caso. 
DJNZ •: el registro B es decrementado en 
uno y si el resultado no es cero «e » realiza un 
salto relativo hacia adelante o hacía atrás. Si 
B=0 pasa a la instrucción siguiente. 
EX (SP),x: generalmente se utiliza con HL 
para intercambiar los dos bytes de la pila con 
el contenido de HL. No altera a los otras regis- 
tros, «x» suele ser HL.IX ó IY. 
EX x,y: siendo «x» AF «y» es AF\ y cuando 
«x» es DE «y» es HL. EX DE.HL realiza un in- 
tercambio de contenidos de HL y DE sin alté- 
is demás registros. 

realiza un intercambio con HL, BC y DE 
por HL'.BC*. y DE\ esto es, con el banco al- 
ternativo de registros. Esta instrucción se uti- 
liza para almacenar los registros antes de uti- 
lizar una subrutina que los pueda alterar. 
IN x,(C): se emplea para captar información 
del exterior y cargarla en el registro «x». «x» 
puede ser A,B,C,D,E,H ó L Pueden llegar a 
haber hasta 256 aparatos distintos direccio- 
nados cada uno a una vía de acceso o port, 
identificados por un número que va entre 
&H00 y &HFF. 

IN A,n: Su funcionamiento es igual que IN 
x,(C) pero el número de la vía de acceso se 
suministra directamente como dato. 
INC x: el valor de «x» es incrementado en 
uno y vuelto a almacenar en «x». «x» puede 
ser A,B,C,D,E,H,L,HL,BC,DE,IX,IY,SF\(HL), 
(IX+d) y (IY+d). Si se trabaja con un registro 
aislado afecta a todos los flags excepto CA- 
RRY. Si «x» es un par de registros estos no se 
ven afectados. 

IND: Su funcionamiento es el de IN (HL),(C), 
decrementando HL y B, utilizándolo como 
contador para cargar un bloque desde el ex- 
terior. 

INDR: al igual que IND pero repitiéndose 
hasta queB=0. 

INI: al igual que IND pero incrementando HL. 
INIR: al igual que INDR pero incrementando 
HL. 




JP x: equivalente a la instrucción GOTO del 
BASIC. Realiza un salto a la dirección de me- 
moria indicada por «x», prosiguiendo a conti- 
nuación el programa, «x» puede ser 
(HL),(IX),(IY) ó nn. 

JP c,nn: realiza un salto a la dirección de 
memoria indicada por «nn» si y sólo si se 
cumple la condición especificada por «c». En 
el caso que «c» no se cumpliese la instruc- 
ción es ignorada. 

«IR realiza un salto relativo de tantos bytes 
como indique «e» hacia adelante o hacia 
atrás, «e» es interpretado como un número 
en complemento a dos y se suman +2 al re- 
sultado, esto es, contando a partir del inicio 
de la instrucción siguiente a JR e. Los límites 
del salto vienen definidos por 1 27 bytes hacia 
adelante y 128 hacia atrás. 

JR c,e: su empleo y funciones son iguales a 
las de JR e con la excepción que sólo realiza- 
rá el salto relativo si se cumple la condición 
«c». «c» puede ser C.NC.Z ó NZ. 
LD x,y : almacena el contenido de «y» en «x» 
borrando el anterior contenido de «X». «x» 
puede ser A,B,C,D,E,H,L «y» puede ser 
A,B,C,D,H,E,L,ón. 

LD A,(xx): instala en A el contenido de me- 
moria indicado por la dirección «xx». «xx» po- 
drá ser nn,HL,BC,DE,IX+d,IY+d. 
LD x,(y ): instala en «x» el contenido de me- 
moria que indica «y». Mientras «x» puede ser 
A,B,C,D,E,H,L, «y» será HL,IX+d, ó IY+d. 
LD (xx),y: El contenido de «y» es cargado 
en la dirección de memoria que indica «xx». 
«xx» puede ser HL,DE,BC,IX+d,IY+d, ó nh 
siempre que «y» sea A. Si «xx es IX+d,IY+d 
ó HL «y» podrá ser A,B,C,D,E,H,L, ó n. Si 
«xx» esnn «y» podrá ser A,HL,BC,DE,IX,IYó 

LD xx,yy: «xx» puedeserHL,BC,DE,IX,IYó 
SP, siendo «yy» nn.(nn). Carga el dato nn en 
«xx», o bien el contenido de las direcciones 
de memoria nn y nn+1 en «xx» si se usa 
como (nn). El segundo registro se carga en 
primer lugar y el primero en segundo con 
nn+1. 

LD SP,xx: carga el puntero de la pila, stack, 
con el contenido de «xx». «xx» puede ser 
(nn^nn,HL,IX,IY. 

LDD: realiza por sí sola y en el mismo orden 
LD(DE), (HL), DEC HL, DEC DE, DEC BC, es 
decir, ejecuta una carga con decremento. El 
flag P/v toma el valor 0 si BC^=0 una vez de- 
crementado. Su uso se extiende al traslado 
de bloques, utilizando HL de puntero en el 
bloque de origen, DE como puntero de desti- 
no y BC de contador de la longitud del bloque 
a trasladar. Utilizando JP PO nn a continua- 
ción se repite hasta que BC=0. 
LDDR: su funcionamiento es igual que LDD 
j>ero se repite automáticamente hasta llegar a 

LDI: realiza por sí misma y por el mismo or- 
den LD (DE), HL, INC HL, INC DE, DEC BC. 
El flag P/V toma el valor cero si BC=0. Su uso 
se extiende al traslado de bloques, utilizando 
HL como puntero del bloque de origen, DE 
puntero de destino, BC de contador de la lon- 
gitud del bloque a trasladar. Utilizando JP PO 
nn a continuación se repite hasta que BC = 0. 
LDIRs posee un funcionamiento idéntico a 
LDI pero repitiéndose automáticamente has- 
ta queBC=0. 

NEG: su función es obtener el complemento 
a dos del registro A y almacenarlo otra vez en 
A. Su equivalente en BASIC es LET A=-A. 
Sólo afecta al registro A. 
NOP: no realiza ninguna operación. Emplea- 
da para perder tiempo si ésta está en un bu- 
cle. Utilizada, también, para anular instruccio- 
nes sin reestructurar las demás direcciones 
de memoria, sustituyendo cada byte por un 
NOP. 



OR x: ejecuta un «0» según las reglas de la 
lógica entre A y «x», almacenando el resulta- 
do en A. El resultado de la tabla de verdad en 
cada bit será: 0y0=0, 0y1=1, 1y1=1. «x» 
puede ser (HL), (IX+d), lY+d),A,B,C,D,E t H,L 
ó n. Los flags tomarán valor en función del re- 
sultado obtenido. 

OUT (x),y: envía información al exterior, al- 
macenada en el registro «y» , indicada por el 
contenido de «x». Pueden utilizarse 256 posi- 
bles aparatos. Cuando «x» es C «y» puede 
ser A,B,C,D,E,H,L. Siendo «x» n «y» tiene 
que ser A. La asignación de los aparatos a los 
ports se efectúa al diseñar el hardware. 
OTDR: su funcionamiento es idéntico a OUT 
(C),(HL) seguido de DEC HL y DEC B em- 
pleados como contador, y repitiéndose hasta 
llegar a B= 0. 

OTIR: funciona al igual que OTDR, pero in- 
crementando HL. 

OUTD: funciona al igual que OTDR pero sin 
repetirse. 

OUTI: funciona al igual que OTIR pero sin re- 
petirse. 

POP xx: el contenido de la cima de la pila 
stack se copia en el par «xx» y se incrementa 
en dos SP. Él byte indicado por SP es copiado 
en el segundo registro y el indicado por sP+2 
queda copiado en el primer registro de «xx». 
«xx» puede ser AF,HL,BC,DE,IX,IY. Se em- 
plea para gestionar la pila junto a la instruc- 
ción PUSK 

PUSH xx: el contenido del par «xx» es co- 
piado en la cima de la pila, almacenándose y 
pudiéndose utilizar el par «xx» para otras co- 
sas. Se vuelve a recuperar el contenido ante- 
rior mediante POP «xx». «xx» puede ser 
AF,HL,BC,DE,IX,IY. 

RES b,x: el bit indicado por «b» del byte indi- 
cado por «x» se pone a 0. «x» puede ser 
(HL),(lX+d),(IY+d),A,B,C,D,E,H,óL 

RET: instrucción que permite el regreso de 
una subrutina o devolver el control al intérpre- 
te BASIC. Realiza un POP al registro PC 
(contador de programa), de tal manera que si 
en la cima de la pila stack hay otro dato que no 
sea la dirección de retomo que pone a la ins- 
trucción CALL, el programa salta a la direc- 
ción de memoria indicada por el contenido de 
la cima de la pila. Ello sirve para dirigir una su- 
brutina a un punto distinto al de partida. 
RET c: su funcionamiento es idéntico al de 
RET, pero solamente regresará si se cumple 
la condición «c». 

RETI: finaliza una subrutina que sólo se lla- 
ma mediante una interrupción. 
RETN: finaliza una subrutina que sólo se lla- 
ma mediante una interrupción no enmascara- 
ble. 

RL x: los bits de «x» se desplazan una posi- 
ción a la izquierda ocupando la posición del 
bit contiguo. El registro «x» puede ser (HL), 
(IX+d), (IY+d),A,B,C,D,E,H,L. El bit 0 lo ocu- 
pa el contenido del flag CARRY y el 7 se tras- 
lada al flag C. El resultado altera a los flags. 
RLA: emplea el código &H17. Aunque no es 
lo mismo que «RL A» (con código «CB07») 
tienen ambas el mismo efecto, siendo más rá- 
pida RLA y ocupa un byte menos de memoria. 
No afecta a los flags excepto a C. 
RLC x: cada bit se traslada a la posición de la 
izquierda, «x» puede ser (hl), (IX+d),(IY+d), 
A,B,C,D,E,H, ó L. El bit 7 pasa a ocupar la po- 
sición del bit 0 y se copia en el flag CARRY. 
Los flags se ven afectados por el resultado. 
RLC A: su funcionamiento es igual al de RLC 
A, ocupando un byte menos. Su actuación es 
más rápida y sólo afecta al flag CARRY. 
RLD: el contenido de los bits de 0 a 3 de la di- 
rección de memoria indicada por el par HL pa- 
san a ocupar los bits 4 a 7 de la misma direc- 
ción. El contenido anterior de estos bits se 
traslada a los bits 0 a 3 del registro A. Los bits 



INICIACION AL LENGUAJE MAQUINA 



DEL HARD AL SOFT 

O a 3 que conten ía A se ubican en los O a 3 de 
la dirección de memoria indicada. 

RR x: cada uno de los bits de «x» se despla- 
zan un lugar a la derecha. « x » puede ser (HL), 
(IX + d),(IY -i- d)AB,C,D,E,H,L El bit 0 ocu- 
pará al flag CARRY y el contenido previo de 
éste se copiará en el bit 7. Los flags se verán 
afectados en función del resultado. 

RR A: su funcionamiento es idéntico al de RR 
A, ocupando un byte menos, su funciona- 
miento es más rápido y el resultado sólo afec- 
ta al flag C. 

RRC x: cada uno de los bits se desplaza una 
posición a la derecha, y el bit 0 pasa a ocupar 
el bit 7, copiándose además en el flag ÓA- 
RRY. «x» puede ser (HL), (IX+d),(IY+d); 
A,B,C,D,E,H,L En función del resultado los 
flags se verán afectados. 

RRCA: su funcionamiento es idéntico al de 
RRC A, pero ocupando un byte menos, es 
más rápido y afectando sólo al flag C. 



el segundo dígito de (HL) se traslada al 
segundo dígito de A. El segundo dígito de A 
ocupará el primer dígito de (HL). El primer dí- 
gito de (HL) pasa a ocupar el segundo dígito 
de (HL). 

RTS x: su funcionamiento es el de CALL 
pero salta a la posición de memoria determi- 
nada por el código de la instrucción, «x» pue- 
de ser 

&H00,&H08,&H10,&H18,&H20,&28,&H30 ó 
&H38. Ocupa un sólo byte en vez de los tres 
necesarios para un CALL nn, pero no pode- 
mos elegir el lugar del salto. 

SBC x,y: sustrae «y» de «x» y luego resta el 
contenido del flag CARRY al resultado, guar- 
dándolo en «x». Si «x» es A «y» puede ser 
(HL),(IX+d),(IY+d),A,B,C,D,E,H,L, ó n. Si 
«x» es HL«y» podrá ser HL,BC,DE, ó SP. En 
función del resultado se posicionarán los 
flags. 

SCF: coloca a uno al flag CARRY. 

SET b,x: coloca a uno el bit «b» de «x». «x» 
puede ser (HL), (IX+d), (IY+d),A,B,C,D,E, 
H,L El resultado no interfiere en los flags. 

SLA x: cada uno de los bits de «x» se despla- 
zan a ocupar la posición de la izquierda. El bit 
7 se copia en el flag CARRY y el 0 se coloca a 
cero, «x» puede ser (HL),(IX+d),(IY+d) 
A,B,C,D,E,H,L. Los flags se posicionan en 
función del resultado. 

SRA x: cada uno de los bits se desplazan a la 
derecha una posición. El bit 0 se copia en el 
flaa CARRY y el bit 7 no se altera. En función 
del resultado se posicionan los flags. 

SRL x: cada bit se desplaza una posición a la 
derecha, el bit 0 queda copiado en el flag CA- 
RRY y el 7 se pone a cero, «x» puede ser 
(HL), (IX+d), (IY+d),A,B,C,D,E,H,L. Los 
flags se posicionan en función del resultado. 



x: sustrae «x» del registro A, almace- 
nando el resultado en A. «x» puede ser (HL), 
(IX+d), (IY+d),A,B,C,D„E,H,L Directamen- 
te no se disponen de parejas de registros 
pero se puede emplear AND A seguido de 
SBC HL,ss siendo «ss» HL,BC,DE ó SP. Los 
flags se ven afectados en función del resulta- 
do. 

XOR x: realiza un «0» exclusivo de acuerdo 
a las reglas de la lógica entre el registro A y 
«x». La tabla de resultados es: 0y0=0, 
0y1=1, 1y1=0. «x» puede ser 
(HL),(IX+d),(IY+d),A,B,C,D,E,H,L ó n. XOR 
A coloca a cero al flag C y al registro A. 



MINI LISTADO 
PROCESADOR 

Todos sabemos que los procesado- 
res de texto son programas que convier- 
ten al ordenador en máquina de escribir. 

En realidad, los procesadores de tex- 
to profesionales permiten mucho más 
que esto, pero son muy caros. 

El minilistado que acompaña estas lí- 
neas desde luego no es equiparable a 
un programa de esa envergadura, pero 
te va a permitir usar tu ordenador como 
máquina de escribir. 

En realidad, tan sólo se limita a hacer 
un volcado de pantalla cuando se pulse 
F1, con lo que si se tiene cuidado al 
componer el texto, se puede editar cual- 
quier documento. 

Pulsar F1 sólo cuando se haya finali- 
zado de escribir. 

10 KEYOFRKEY 1 9 CHR$(30) 

+CHR$(13) 
20 CLS-.LOCATE 0,0:LINE IN- 

PUT A$ 

30 DEFINT A Z FOR F=0 TO 
23:FORC OTO 39 

40 LPRINT CHR$(VPEEK(F* 

40 + C));:NEXT 
50 LPRINT CHR$(13):NEXT: 

LOCATE 0,22 



VENTANAS 

Cuando se teclea un literal, sobre 
todo dentro de un listado, es pesado es- 
tar pendiente de si la introducción debe 
realizarse en modo de mayúsculas o mi- 
núsculas. 

La cosa puede agilizarse considera- 
blemente si hacemos uso de las varia- 
bles del sistema. Por ejemplo: 

POKE &HFCAB.0 fija la escritura en 
modo de minúsculas. 
POKE &HFCAB,255 fija la escritura 
en modo de mayúsculas. 



Para crear ventanas en nuestros pro- 
gramas, hay otra dirección que nos pue- 
de ser de mucha utilidad. 

Si escribimos POKE &HF3B1 ,x 

siendo x el número de líneas en pantalla 
que deseemos, comprimimos (o prolon- 
gamos) la pantalla de texto. Si combina- 
mos esto con POKE &HF3B2,x, donde x 
es el número de columnas en pantalla, 
podemos fijar la longitud y anchura de la 
ventana que deseemos crear. 

Podemos escribir en la parte inferior 
de la ventana mediante VPOKES, y utili- 
zar la parte superior para visualizar datos. 



Nacho Barrientos. Vígo 
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MEJORA AL 

TEST DE LISTADOS 

Jordi Faraudo i Gener, de Barcelona 
nos envía una optimización a nuestro 
célebre Test de Listados. El objeto de 
esta modificación es que el Test sirva 
para realizar el proceso inverso al que 
viene realizando actualmente, es decir, 
que sea el usuario el que introduzca los 
valores correspondientes a cada línea 
que nosotros publicamos junto a los pro- 
gramas. Una vez introducido el valor 
asignado a cada línea, el ordenador 
efectúa la suma de control, y en caso de 
que lo tecleado sea incorrecto producirá 
una señal acústica y dará la suma co- 
rrecta. El proceso de verificación del lis- 
tado con esta modificación es bastante 
más largo, pero quizá algunos de nues- 
tros lectores prefieran realizarlo así. 

Aquí van las modificaciones a reali- 
zar: 

651 70 TS TS + SOM:GOSUB65500 
65180 IFJF SOMTHENPRINT 

ÜSINQ"#### -###";RE, 
SOM:BEEP:BEEP:GOSUB 
65520 

65500 LOCATE0,7:PRINT" 
":LOCATE0,7 

65510 PRINT"EI n.° de instrucción 
de la línea -";RE;" tiene 
que ser:";:LINE INPUT J f$: 

JF = VAL(JF$):RETURN 
65520 PRiNT:PRINT" Pulsa 




65521 K$=INKEY$:IFK$<>" 

THEN65521 ELSERETURN 



Jordi Faurado Gener 
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3° GRAN 



PROGRAMA 



CONCURSO 



DEL ANO 




CREA Y ENVIANOS TU PROGRAMA 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



BASES 

1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A — Educativos 

B — Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón- etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
mismo. 

PREMIOS 

7 - MSX EXTRA otorgara los siguientes 



CORTAR O FOTOCOPLAR 
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TJLTULO 



TITULO 



CATEGORIA 



INSTRUCCION DE CARGA 

AUTOR: 
EDAD: 



DP 




CIUDAD 

N.° DE RECEPCION 



L 







premios: 
AL PROGRAMA MSX EXTRA DEL 

AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 
publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

Nuestro Departamento de Programa- 
ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA. 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO MSX 
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DEVS EX MACHINA 

¡¡EL AUDIO-VIDEO!! 
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DEVS EX MACHINA 
EL CONCEPTO MAS AVANZADO 
EN JUEGOS PARA TU MSX 
¡SIENTATE ANTE TU MSX 
CONECTA LA BANDA SONORA 
Y VIAJA HACIA EL FUTURO...! 



¡LA AUDIO VIDEO AVENTURA 
MAS ALUCINANTE JAMAS 
CREADA...! 

fimo mm%5 brqnasa. 
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